IDENTIFICATION 



SCO 0001 



PRODUCT CODE i 



MAiNDEC-ll-DXOLN-B-D 



PRODUCT NAME: 



DEC/X11 DECNET LIBRARY 



DATE | 



MARCH 1977 



MAINTAINED 



DIAGNOSTIC GROUP 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND. SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE 
AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH 
LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL. 



COPYRIGHT (C) 1976, 1977 
DIGITAL EQUIPMENT CORPORATION 



CONTENTS 



SEQ 0002 



NtAB DEC/Xli DECNET SERVICE M ODULE ill 

NUAA DEC/Xli DECNET DU-11 MODULE 

NQAA DEC/Xli DECNET DQ-11 MODULE 

NPBA DEC/Xli DECNET DUP-11 MODULE 

NLAA DEC/XU DECNET DL-ll-E MODULE 

N2AA DEC/Xli DECNET SERVICE MODULE «2 
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.REM % 



IDENTIFICATION 



PRODUCT CODE! MAINDEC-1 1-DXN1A-B-D 

PRODUCT NAME: DECNET DEC/X11 SERVICE EXERCISER MODULE #1 

DATE: MARCH 77 

MAINTAINER: DEC/XU DIAGNOSTIC GROUP 

THE INFORMATION IN THIS DOCUMENT XS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN, 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE Op RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 



COPYRIGHT (C) 1976, 1977 

DIGITAL EQUIPMENT CORPORATION, MaYNARD, MASS. 
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N 1 A? IS A SERVICE MODULE USED BY DECNET DEC/X11 
MODULES. IT DOES NOT TEST ANY DEVICES. IT MUST BE INCLUDED AS THE 
FIRST MODULE* DIRECTLY AFTER THE MONITOR* IN THE CONFIGURING OF THE 
RUN TIME EXERCISER. ALL DECNET DEC/X11 MODULES MUST FOLLOW 
IT AND THEN THE N2A? MODULE MUST FOLLOW THEM, NEXT THE CLOCK MODULE 
SHOULD FOLLOW AND THEN ALL NORMAL DEC/X11 MODULES IN ANY ORDER. 
THIS MODULE IS USED TO HOLD SEVERAL COMMON SUBROUTINES AND ONE COMMON 
TRANSMIT BUFFER WHICH ARE USED BY ALL DECNET DEC/XU MODULES. 
WHEN THE EXERCISER IS RUN, THIS MODULE WILL ASK QUESTIONS 
REGARDING THE TYPES OF LINES TO BE RUN AND WHICH MESSAGE OPTION 
YOU PREFER. 

#»#»##»#•#•##»»###•#«#♦*•##•#•»##*»»»##*#»#*»*#**»#* #*##•••»###*#» 

IMPORTANT 

EVERY NODE IN THE NETWORK BEING EXERCISED MUST USE THE EXACT SAME 
MESSAGE t 

####*###»#»##»##•»##«#####*#*######»*»###*###*#*#»**«#•*»»***»»*♦» 

THIS MODULE IS A SPECIAL NfiKMOD SO IT WILL ONLY REPORT 1 END OF PASS 
AND THEN NEVER RUN AGUN, IF THE OPERATOR DOES NOT WANT TO ANSWER 
ALL THESE LINE QUESTIONS EVERY TIME HE RESTARTS THE EXERCISER, HE 
CAN CHANGE LOCATION 164 TO BE A 000001. 

HOWEVER* IF HE THEN LATER WANTS TO MODIFY A PARAMETER, HE WILL 
HAVE TO MOD LOCATION 164 IN THE MODULE BACK TO A 000000. 
WHILE ANSWERING THESE LINE QUESTIONS FOR AN INDIVIDUAL MODULE 
(I.E. DEVICE TYPE) AN "8" REPLY WILL SKIP THE 

REST OF THE QUESTIONS FOR THAT MODULE* LEAVING THE OTHER PARAMETERS 
UNCHANGED. 

THIS MODULE IS USED BY ALL DECNET DEC/X11 MODULES TO DO 

DATA COMPARING OF RECEIVED MESSAGES. WHEN IT FINDS AN ERROR FOR 

A DECNET DEC/XU MODULE* IT REPORTS IT, THEREFORE ITS NAME IN THE 

RUN TIME EXERCISER IS INITIALLY N 1 XX0* BUT THIS NAME IS CHANGED EVERY 

TIMF. IT REPORTS A DATA ERROR FOR A DECNET MODULE TO SHOW WHICH 

DECNET MODULE REALLY HAS THE ERROR. THEREFORE, 

IN RUN SUMMARIES AND WHEN USING THE MOD COMMAND* THIS MODULE'S NAME 
CHANGES. TWO FIGURE OUT WHAT NAME IT HAS, CHECK THE LAST RUN SUMMARY 
OR USE THE MAP COMMAND. SEE THE DECNET DEC/X11 USER'S GUIDE, DXQBC?, 
FOR A MORE COMPLETE EXPAINATION. 
% 
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8EO 0005 





fVVVDV 






78 


WBVvW 






79 








80 








6 1 

82 








83 


900000 * 






84 


900000* 


03051 6 


041 101 


§5 




000 




86 


900006 * 


000000 




87 


#00010' 


000000 




88 


000012* 


000 




89 


00001 3 * 


000 






00 6 id 14' 


00000 i 




9 1 


00001 6 * 


000000 












93 




04 1000 




'* 


000022 * 










0001 6 4 * 




96 


If vW 17 ID 






97 




000000 




98 




000000 




99 


000034* 


000000 




1 00 


000036 * 


000000 








000000 




102 


000042 * 


000000 




103 




000000 




1 04 


000046* 


090000 




1 09 


00005? * 


000000 






000052 * 






1 07 


000052 * 


000000 




i 33 


ggggcA * 








000054 * 


000000 




110 


000056* 


000000 






000060 * 


090000 




117 








ill 




000040 




114 








IIS 

' jj? 
















117 








1 1 a 


000164 






1 1 o 








1 20 








■71 








195 








123 








124 








125 








126 








127 


000164' 


000000 




128 








129 


900166* 






130 


000166' 


116700 


000000G 


131 


000172* 


006000 




132 


000174* 


103004 





N1KM0D <N1AS > 

MODULE 4l0** r NlAB 

.TITLE Ml Aft 0EC/X11 SYSTEM EXERCISER MODULE 

I DDXCON VERSION 4 9/6/75 

.LIST BIM 



BEGINS 








nODNAM 8 


•ASCII 


/N1AS / 


(MODULE NAME. 


XFLAGs 


,6'lfE 


OPEN 




ADDRs 


♦0 




I 1 ST DEVICE ADDR • 


VECTOR t 


♦0 




(1ST DEVICE ¥tUTOK( 


BRi | 


.BYTE 


PRTI>» 


{1ST BR LEVEL. 


BR2l 


.BYTE 


PRTT*f 


}2ND BR LEVEL. 


DVlDl t 


♦ 1 




(DEVICE INDICATOR 1 , 


SRI I 


OPEN 




(SNITCH REGISTER 1 


STATl 


4 1 •#• 




} STAToS word. 


INITS 


START 




yMODUXjS START ADDR. 


SPOINTS 


HODSP 






PA8CMTS 







frAoo CVURTE>K. 








(&nffvv wvun.^i 


SVR0S 


OMCM 




- T /V* 0t\ ft&VE R0I 
J l^vA_ XV " ■» nwr m 


tvni' 


OPEM 




fLOC TO SAVE Rl . 




oppn 




}LOC TO SAVE R2. 




OPEN 




fLOC TO SAVE R3. 


SVR4* 


OPEN 




fLOC TO SAVE R4. 


SVR5: 


OPEN 




;LOC TO SAVE R5. 


SVR6I 


OPEN 




fLOC TO SAVE R6. 


CSRA8 


OPEN 




(ADDR Or CURRENT CSR. 


SB ADR: 






f ADDR OF GOOD DATA, Op 


ACSRs 


OPEN 




(CONTENTS or CSR. 








.in^a -/fcy g£D DATA. OB 


ASTATi 


OPEN 




J STATU* REG CONTENTS. 


ASB| 


OPEN 




j EXPECTED DATA. 


AWASt 


OPEN 




(ACTUAL DATA. 


RSTRTj 


RESTRT 




I RESTART ADDRESS AFTER END OF PASS 




.KEPT 


SPSIt 


(MODULE STACK STARTS HERE. 




.NLIST 








.WORD 









.LIST 








.ENOR 







.GLOBL KW1 IX, KWUL,KW1 IP, CLOCK. TIME, FILCNT, FILLER 

.GLOBL tks,tkb,tps»tpb, type, msghed,msg,msgsiz, wait 

.GLOBL CRC, CKMSG, CRCM8G, DEVSET/SR, PURCNf 

IF THIS LOCATION Ig NON-ZERO, THE DEVSET ROUTINE WILL 
NOT ASK OPERATOR FOR HALF/FULL DUPLEX SETUP, ETC. 



STARTS 

RESTRT: MOVB 
ROR 



CLOCK, R0 (FIND OUT WHICH CLOCK WE HAVE 

Rft | IS IT KN11L? 

If (BP ir NOT 
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I 33 


000176' 


012767 


000002G 


003214 




MOV 


IKWUL*2,TIME 


(ELSE LET TIME POINT TO "TIME" 


134 


000204' 


000423 








BR 


GOPT 




135 


000206' 


006000 






1$: 


ROR 


R0 


(IS IT KW11P? 


136 


900210' 


103004 








BCC 


21 


(BR IF NOT 


137 


000212' 


012767 


000002G 


003200 




MOV 


IKN1 1P*2» TIME 


(ELSE LET TIME POINT TO "TIME" 


1 38 


000220' 


030415 








BR 


GOPT 




139 


000222' 


006000 






2s: 


ROR 


R0 


;IS IT A FAKE CLOCK? 


140 


000224' 


103004 








BCC 


31 


(BR ir NOT 


141 


000226' 


B12767 


000002G 


003164 




MOV 


IKW1 1X*2» TINE 


(ELSE LET TIME POINT TO "TIME" 


142 


000234' 


000407 








BR 


GOPT 




143 


000236' 


012767 


004241 ' 


000004 


3s: 


MOV 


INOCLKM, 4 J 


(PUT MSG ADDR ON STACK 


144 


000244' 


004567 


000714 






JSR 


R5.TYPE 


(CALL TYPE ROUTINE 


145 


000250* 


000000 






48! 


OPEN 






146 


000252' 


000000 








HALT 




jCANT'T RUN WITH NO CLOCK 



147 
1 48 
149 

150 
151 
152 



GET MESSAGE OPTION FROM THE USER. 
NOTES ONLY THE LAST CHARACTER TYPED BEFORE "CR" 
IS SIGNIFICANT. ALL PREVIOUS CHARACTERS (IF ANY) 
ARE IGNORED. 



153 


000254* 


005767 


004210 


GOPTS 


TST 


IMFLAG 


(FIRST TINE THRU THIS MODULE? 


154 


000260' 


001011 






BNE 


2$ 


;BR ir NOT, 


155 


000262' 


032777 


000001 


000000G 


BIT 


tl,*SR 


(HAS THE OPERATOR DISABLED MSG'S? 


156 


000270* 


001003 






BNE 


It 


;BR IF YES. 


157 


000272' 


004567 


000666 




JSR 


R5.TYPE 


(TYPE ERROR CODES. 


158 


000276* 


003445* 






IMSG 






159 


000300' 


005267 


004164 


it: 


INC 


IMFLAG 


(DON'T TYPE IT AGAIN. 


160 


000 304' 


005077 


003110 


211 


CLR 


8TIME 


j SET TIME TO ZERO 


161 


000310' 


005067 


001240 




CLR 


CKMSG 


;SHOH THAT CKMSG ROUTINE ISN'T BUSY 


162 


000314* 


005067 


001570 




CLR 


R4SAV (CLR R4 


COUNTER 


163 


000)20' 


005067 


001566 




CLP 


R45AV+2 (CLEAR 


SAME FOR LINE 1 


164 


•00324' 


012767 


004475* 


000004 


MOV 


#CETMG,6t 


(PUT MSG ADR ON STACK 


165 


000332' 


004567 


000626 




JSR 


R5#TYPE 


(CALL TYPE-OUT ROUTINE 


t66 


0003 36' 


000000 




6SS 


OPEN 






167 


000340' 


012700 


003445' 


GETMSG: 


MOV 


IMSG+1.R0 


(GET BUFFER ADDR 


168 


000344* 


017767 


000000G 


000720 


MOV 


0TKS, TKSSAV 


(SAVE TTY STATUS 


169 


000352* 


005077 


000000G 




CLR 


9TK3 


(DIABLE INTERRUPTS 


i 70 


#00356" 


005001 






CLR 


Rl 


(SET mEbsAGe. SIZE TO ztRU 


171 


•00360' 


105777 


000000G 


is: 


TSTB 


0TKS 


(WAIT TOR A CHARACTER 


172 


•00364' 


100375 






BPL 


.-4 




173 


•00366' 


11"»702 


00000 0G 




MOVB 


»TKB,R2 


(BRING CHARACTER IN 


174 


•00372* 


042702 


177600 


2SI 


BIC 


1177600, R2 


(GET RID OF PARITY BIT 


175 


•00376* 


110267 


004034 




MOVB 


R2. OUTPUT 


(ONE CHARACTER BUFFER, 


176 


•00402* 


012767 


004436* 


000004 


NOV 


1 OUTPUT, 21* 


(USED IN THIS CASE TO ECHO 


177 


•00410* 


004567 


000550 




JSR 


R5,TYPE 


(THE INPUT CHARACTER. 


178 


•00414' 


000000 




21S: 


OPEN 






179 


•00416' 


172702 


000015 




CHPB 


•15, R2 


{ WAS IT A CR? 


180 


000422* 


001402 






BEO 


3* 


;BR IF YES. 


181 


1*00424 ' 


010203 






MOV 


R2,R3 


(SAVE IT, DESTROYING PREVIOUS CHARACTER. 


182 


000426' 


000754 






BR 


IS 


(GET NEXT CHARACTER. 


183 


000430' 


112767 


000012 


004000 3S: 


MOVB 


* 12, Output 


(LINE FEED TO BUFFER. 


184 


•00436* 


312767 


004436* 


000004 


MOV 


•OUTPUT, 4$ 


(TYPE IT OUT. 


185 


000444' 


004567 


000514 




JSR 


R5.TYPE 




186 


000450* 


040000 




4$: 


OPEN 






187 


000452' 


120327 


000060 




CMPB 


K3,»60 


(MUST BE BETWEEN '0' AND 'b*. 


188 


000 456' 


00241 1 






BLT 


HELP 


;RP IF BELOW ASCII '0'. 
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SEO 0007 



109 


000460* 


1 20327 


000066 






190 


000464* 


003006 








19] 


000466' 


1 62703 


000060 






1 92 


000472 * 


000257 








193 


000474* 


006103 








1 94 


000476* 


0001 7 3 


004452 * 






195 


000502 * 


01 2767 


00457 4 ' 


000004 


HELP | 


1 96 




004567 


000450 






1 97 


000514' 


000000 






53 . 


1 96 


0005 1 6 * 


000656 




















200 










[ 


201 












202 


•00520* 


005001 






ZERO* 


203 


000522* 


000405 








204 


040524* 


005001 






ONES I 


205 


000526* 


005101 








206 


000530* 


000402 








207 


000532* 


1 12701 


000252 




ALTER: 


208 


000536' 


01 2700 


003444* 




f ILLi 


209 


000542* 


1 05720 








210 


000544* 


022700 


004434* 




111 


21 1 


000550* 


001517 








212 


000552* 


1 1 01 20 








213 


000554* 


000773 








214 












215 












216 










J 


217 


000556* 


005000 






W0R3TI 


219 


000560* 


005001 








219 


000562* 


01 2702 


003445 " 






220 


000566* 


072702 


004434* 




If 1 


221 


000572* 


001506 








222 


000574* 


1 1 0022 








223 


000576* 


005201 








224 


000600* 


042701 


177760 






225 


000604* 


01 01 00 








226 


000606 * 


006300 








227 


000610* 


006300 








228 


000612* 


006300 








229 


00061 4 * 


006300 








230 


000616* 


0601 00 








231 


000620* 


000762 








232 












233 












234 












235 


000622* 


012767 


005162' 


000004 


user: 


236 


C00630* 


0045b7 


000330 






237 


0006 34' 


300000 






is: 


238 


000636' 


Dl 270,) 


003445* 






239 


<»0642* 


005077 


000000 G 






240 


000646' 


012701 


000001 






241 


000652' 


105777 


00000PG 




2f 1 


242 


000656' 


100375 








243 


000660' 


117702 


000000G 






244 


000664' 


142702 


000200 







CMPB 

BGT 
SUB 
CCC 
ROL 
JMP 
MOV 
JSR 
OPEN 
BR 



R3,»*6 
HELP 
•60, R3 

R3 

»0DISP(R3) 
I HELP*, 54 
R5.TYPE 



•COMPARE TO ASCII '6'. 

j SEE ir IT'S * RUBOUT. 

I MAKE WORD OrrSET FROM ASCII. 

I ASSURE CLEAR CARRY BIT. 

ISO It CAN BE MADE A BYTE OFFSET. 

.USE IT TO DISPATCH TO PROPER OPTION ROUTINE, 

I ERROR IN INPUT, TYPE SOME INSTRUCTIONS. 



GOPT J GO BACK AND TRY AGAIN. 

FILL BUFFER WITH CHARACTERS SELECTED BY USER. 

jFILL CHARACTER ■ 000. 
•FILL CHARACTER ■ 377. 



CLR 
BR 
CLR 
COM 
BR 

MOVB 

MOV 

TSTB 

CMP 

BEO 

MOVB 

BR 



Rt 

FILL 
Rl 
Ri 

FILL 
»252,R1 
|H8G,P0 
(R0) + 

fCRCMSG,R0 

'DONE 
R1,(R0)+ 
It 



WORST CASE BIT PATTERN . 



CLR 

CLR 

MOV 

CMP 

BEO 

MOVB 

INC 

BIC 

MOV 

ASL 

ASL 

ASL 

ASL 

ADD 

BR 



R0 
Rl 

|MSC<M,R2 

ICRCMSCR2 

DONE 

R0,(R2)+ 

Rl 

» 177760, Rl 
R1,P0 

R0 
R0 
R0 
R0 

R1,R0 
tt 



(fill character « 252, 

i address of message buffer. 

imove Around osop protocol character. 

»rirst crc byte (end of msg buffer) ? 

(BR IF YES. 

f STORE CHARACTER IN BUFFER. 
(CONTINUE UNTIL FULL. 



J START WITH A ZErO CHARACTER. 
: INITIALIZE HALF-BYTE TO ZERO. 
,8ET UP POINTER TO MESSAGE AREA. 
I END OF BUFFER AREA? 
(BR IF YES, 

(MOVE BYTE INTO BUFFER. 
, UPDATE HALF-BYTE. 
(CLEAR ALL BUT HALF-BYTE. 
,PUT IT INTO R0... 
j AND SHIFT IT OVER. 



(SECOND HALF-BYTE. 

;CONTINUE PROCESS UNTIL BUFFER FULL. 



READ IR THE USER DEFINED MESSAGE. 



MOV 

JSR 

OPEN 

MOV 

CLR 

MOV 

TSTB 

BPL 

MOVB 

BICB 



•U3ERM.lt 
R5» TYPE 

IMSG+1 ,R0 
•TKS 
II, Rl 
• TKS 
2f 

»TKB,R2 
•200, R2 



;TYPE INSTRUCTIONS. 



;SET POINTER TO TOP OF MESSAGE BUFFtR. 
I DISABLE TTY INTERRUPTS. 

(CHARACTER COUNT TO ONE (OSOP PROTOCOL), 

; INPUT READY? 

•NO. WAIT FOR IT. 

•GET THE TYPED CHARACTER. 

•STRIP PARITY. 
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N1 AB.P1 


1 3- 


JAN. 77 


16151 




245 


000670' 


122702 


000177 




746 


000674' 


001006 






247 


000676' 


005701 






248 


000700* 


001755 






249 


000702* 


005301 






250 


000704' 


005300 






251 


000706' 


111002 






252 


000710' 


000405 






253 


000712* 


122702 


000100 




254 


000716* 


001423 






255 


000720* 


1 10220 






256 


000722* 


005201 






257 


000724' 


1 10267 


003506 










S*!M * ?*• ' 




259 


000736' 


004567 


000222 




260 


000742' 


000000 






261 


000744* 


020127 


000765 




262 


000750' 


001411 






26 3 


000752* 


120227 


000015 




264 


000756' 


001335 






265 


00076^' 


012702 


000012 




266 


000764' 


000752 






267 


000766' 


010167 


003446 




268 


000772* 


00041 1 






269 


000774' 


012767 


004472' 


000004 


270 


001002' 


004567 


000156 




271 


00100b' 


000000 






272 


•010M* 


012767 


000766 


003422 


273 


001016' 


012767 


000001 


003416 


274 


001024' 


016777 


000242 


000000G 


275 


001032' 


116767 


003402 


002375 


276 


001040* 


116767 


003375 


002370 


277 


001046* 


152767 


000300 


002362 


278 


001054' 


012767 


003434' 


000014 


279 


001062* 


012767 


000006 


000004 


280 


001070* 


004567 


000202 




281 


001074* 


000000 


000000 




282 


•01100' 


016767 


177772 


002334 


283 


001106' 


U12767 


003444' 


000014 


284 


001114* 


016767 


003320 


000004 


285 


001122* 


004567 


000150 




286 


001126' 


000000 


000000 




287 


001132* 


016767 


177772 


003274 


288 


001140' 


el670l 


003274 




289 


001 144' 


1 16761 


177760 


003444* 


290 


001152' 


1 16761 


177753 


003 145* 


291 


001160' 


1 04402 


000000' 




292 










293 










294 










795 










296 










297 










298 










799 


001 164' 


»10*4b 






>■*>» 


001166* 


010346 







7$: 

DONE! 



CMPB 


1177, R2 


; IS IT A RUBOUT? 


BNE 


3$ 


(SKIP IF NOT 


TST 


Rl 


•ANY CHAR'S LEFT TO RUB OUT? 


BEO 


IS 


jBR IF NOT, IGNORE RUBOUT 


DEC 


Rl 


•MOVE CHAR COUNT BACK 


DEC 


R0 


;MOVE BUFFER POINTER BACK 


MOVB 


(R0),R2 


j SET UP TO TYPE OUT OLD CHARACTER 


BR 


4$ 




CMPB 


1100, R2 


(HAS THE CHARACTER AN *•*? 


BEQ 


511 


(BR IF YES. 


MOVB 


R2,(R0)+ 


; STORE CHAR IN MSG 


IMC 


Rl 


(UP MSG SIZE 


MOVB 


R2.0UTPUT 


(MOV CHAR TO BUFFER 


MOV 


•rOHTPHT, 41 t 


rPUT ADDR ON STACK 


JSR 


R5,TYPE 


(GO ECHO IT 


OPEN 






CMP 


Rl,«501. 


; ANY ROOM LEFT IN MSG? 


BEQ 


6S 


; BR IF NOT 


CMPB 


R2,»15 


(WAS CHAR A "CR"? 


BNE 


2» 


(BR IF NOT BACK TO PICK UP NEXT 


MOV 


•12, R2 


(PUT A LINE FEED INTO THE BUFFER. 


BR 


3* 


| PROCESS THE LF JUST LIKE ALL CHARACTERS. 


MOV 


R1,M3GSIZ 


(COUNT IS THE MESSAGE SIZE. 


BR 


FINISH 


(COMPLETE THE MODULES TASKS. 


MOV 


•CRLF, 7f 


(FULL BUFFER, FORCE A CP AND LF. 


JSR 


R5,TYPE 


(TYPE 'EM. 


OPEN 






MOV 


I502.,MSGSIZ 


(SET MESSAGE SIZE. 


MOV 


11, WAIT 


(TELLS MODULES TO WAIT FOR NT2 


MOV 


TKSSAV.OTKS 


(RESTORE TTY STATUS TO WHAT IT WAS 


MOVB 


MSGSIZ, COUNT 


(PUT LOW BITS OF COUNT IN HEADER 


MOVB 


MSGSIl+1, COUNT* 1 


(HIGH BITS 


BISB 


•3«0,COUNT+1 


(8ET FLAG BITS IN HEADER 


MOV 


•MSGHED, 81+2 


(PUT HEADER ADDR ON STACK 


MOV 


•6,81 ( HEADER 


LENGTH 


JSR 


RS.CRC 


(GO CALC CRC 


OPEN, OPEN 




MOV 


Mta«CRCHED 


(PUT CRC IN HEADER 


MOV 


»MSG,9$*J 


(PUT MSG ADDR ON STACK 


MOV 


MSGSIZ, 91 


(MSG LENGTH 


JSR 


P5,CRC 


(CO CALCULATE CRC 


OPEN, OPEN 




MOV 


9I+2.CRCHSG 


(PUT MSG CRC IN GLOBAL IOC. 


MOV 


MSGSIZ, Rl 


(GET SIZE OF MSG 


MOVB 


9t*2,MSG(Rl) 


(PUT CRC AT END OF MSG 


MOVB 


98+3'MSG+KRl) 




ENDPSI, 


BEGIN 


(SIGNAL END OF PASS. CONTINUE AT RESTRT 


-CALLFD 


BY (A) PUTTING ADDR OF ASCIZ MSG AFTEp JSP CALL 




(B) DO A JSR 


R5 , TYPE 




DOES NOT DESTROY 


ANY REGISTEHS 


NOV 


R4,-(R6) 


(SAVE R4 


MOV 


H1.-(R6) 


;SAVE R3 
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SEQ 0009 



301 


001 170* 


01 2503 




302 


#01 172* 


01 7767 


000000G 


303 


#01200* 


005077 


000000G 


304 


001204* 


1 0571 3 




365 


901 206 " 


001423 




306 


001210' 


1 2271 3 


000012 


307 


00121 4* 


001012 




308 


90! 216* 


I j 6?04 


000000 G 


309 


001222* 


1 16777 


000000G 


310 


001230* 


1 05777 


000000G 


311 


00 1 2 3 4 * 


100375 




312 


001236* 


005304 




313 


901 240 * 


f 90370 




314 


001 242 * 


1 12377 


000000G 


315 


001 246 * 


1 05777 


0000tf0G 


316 


001252* 


1 00375 




317 


901254* 


000753 




318 


001256* 


01 2603 




319 


001260* 


012604 




320 


901 262 * 


016777 


000006 


321 


001270* 


000205 




322 








323 


901272* 


000000 




324 


901274' 


000000 




325 








326 








327 








328 








329 








3 30 








331 








332 








333 








334 








335 








336 








337 








3 38 








339 








340 








341 


901 276* 


010067 


000576 


342 


901 302* 


01 0167 


000574 


343 


001 306* 


010267 


000572 


344 


001312* 


010367 


000570 


345 


001316* 


010467 


000566 


346 


901322* 


01 2501 




347 


001 324* 


01 1500 




348 


001326* 


005002 




349 


001330* 


112003 




350 


001332' 


010246 




351 


001334' 


040316 




352 


901336' 


040203 




353 


901340' 


052603 




354 


901342* 


010304 




355 


901344* 


042703 


177760 


356 


001350' 


006303 





21: 



3ft 



NOV 

NOV 

CLR 

T3TB 

BEQ 

CNPB 

BMC 

HCVS 

HOVB 

TSTB 

BPL 

DEC 

BPL 

NOVB 

TSTB 

BPL 

BR 

NOV 

NOV 

NOV 

RTS 



(R5)*,R3 

8 TPS, TPSSAV 

•TPS 

CRD 

4* 

*12«(r<3) 
38 

r ILCiiT, ri 

FILLER, «TPB 

•TPS 

.•4 

R4 

2* 

CR3)+,»TPB 

•TPS 

.-4 

1* 

CR6)*,R3 
CR«)+,R4 
TPSSAV, »TPS 
R5 



TKSSAVI 
TPSSAVI 
t 
J 

jCRC • SUBROUTINE 
I TO CALL PUT LENGTH, IN BYTES, 
•PUT ADDRESS OF FIRST BYTE NEXT 
•DO J8R R5,CRC 

t RETURNS NXTH OKE SORD OF CBC-1 



•FOR EXAMPLE 



I GET ADDP TO BE TYPED 
jSAVE TTY STATUS 
; DISABLE INTERRUPTS 
; TERMINATOR? 

;EXIT If SO 

} IS THE CHAR A LINE FEED? 

.NO, SKIP FXbL CHAR'S 

j GET THE FILL COUNT 

;TYPE A FILLER 

•DONE YET? 

jNO, WAIT 

•DEC COUNT 

;LOOP UNTIL S 

,LOAD AND TYPE CHAR 

jIS PRINTER READY? 

j WAIT TILL IT IS 

;GET NEXT CHAR 

; RESTORE R3 

} RESTORE R4 

f RESTORE TTY 

j RETURN 



AFTER JSR CALL 

6 SHESE ADDRESS "AS 



NOV 


LENGHTf 1* 


»MOVE LENGTH IN 


MOV 


ADORrlf+2 


{NAVE ADDRESS IN 


JSR 


R5,CRC 


jGO CALCULATE 


OPEN) 


rOPEN 




MOV 


lf*2,CRCL0C 


;PUT CRC WHERE YOU WANT IT 


NOV 


R0,R»SAV 


•SAVE R0 


NOV 


RWR1SAV 


i Ri 


NOV 


R2/R2SAV 


» R2 


NOV 


R3.R33AV 


; R3 


MOV 


R4,R4SAV 


; R4 


NOV 


(RS)*,R1 


jGET LENGTH IN REGISTER 


NOV 


CR5),R0 


} ADDR 


CLR 


R2 


jCRC VALUE REGISTER 


NOVB 


(«•)♦, R3 


jCHAR TO ADD 


MOV 


R2,-(SP) 


jXOR OLD CRC AND DATA CHAR 


BIC 


R3,(«P) 




BIC 


R2#R3 




BIS 


(SP)+,R3 




MOV 


R3.R4 


J8AVE VALUE 


BIC 


1177760, R3 


; CLEAR HIGH BITS 


ASL 


R3 


jHAKE WORD INDEX 



NlAB DEC/X11 SYSTEM EXERCISER MODULE 
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N1AB.P1J 


[ 13-JAN-77 I 


16J51 








357 


001352' 


016303 


001454' 


MOV 


CRCTAB(R3),R3 


t MODIFIER WORD 


358 


001356' 


042704 


177417 


BIC 


1 177417, R4 


; LEAVE HIGH 4 BITS 


359 


001362' 


006204 




ASR 


R4 


;NAKE WORD INDEX 


360 


001364" 


006204 




ASR 


R4 




361 


001366' 


006204 




ASR 


R4 






BS137B' 


016404 




NOV 


CRCTABtjI. (R4) 


»R4 jKODIFIER WORD 


363 


001374* 


010446 




MOV 


R4.-CSP) 


j TOTAL MODIFIER 


364 


001376* 


040316 




BIC 


R3,(SP) 




365 


001400' 


040403 




BIC 


R4,R3 




366 


001402' 


052603 




BIS 


(SP)t,R3 




367 


001404* 


105002 




CLRB 


R2 


{CLEAR LOW BYTE OLD 


368 


001406* 


000302 




SWAB 


R2 


jHOVE HIGH TO LOW 


369 


001410' 


010346 




MOV 


R3,-(SP) 


;XOR TOTAL MODIFIER 


370 


901412' 


040216 




BIC 


R2,tSP) 




371 


901414* 


040302 




BIC 


R3,R! 




372 


901416' 


352602 




BIS 


(SP)+,R2 




373 


901420' 


005301 




DEC 


Rl 


fDEC CHAR COUNT 


374 


901422' 


001342 




BNE 


If 


j AND GO BACK 


375 


901424' 


010225 




MOV 


R2,(R5)+ 


jSAVE CRC 


376 


001426' 


016704 


000456 


MOV 


R43AV,R4 


; RESTORE R4 


377 


001432' 


016703 


000450 


NOV 


R38AV.R3 


? »3 


378 


901436" 


016702 


000442 


MOV 


R2SAV,R2 


; R2 


379 


901442' 


016701 


000434 


MOV 


R1SAV,R1 


; Rl 


380 


001446' 


016700 


000426 


MOV 


R0SAV,R0 


; R0 


381 


901452' 


000205 




RTS 


R5 




382 








1 






383 








;CRC TABLE OF MODIFIERS 




384 


901454' 


000000 




CRC TAB! 






385 


901456' 


140301 




140301 






386 


901460' 


140601 




140601 






387 


901462" 


000500 




500 






388 


901464' 


141401 




141401 






389 


901466' 


001700 




1700 






390 


901470* 


001200 




1200 






391 


001472' 


141101 




141101 






392 


001474* 


143001 




143091 






394 


901500* 


003600 




3600 






395 


•01502' 


143501 




143501 






396 


001504' 


002400 




2400 






397 


901506* 


142701 




142701 






398 


001510' 


142201 




142201 






399 


901512* 


002100 




2100 






400 


001514' 


000000 











401 


001516* 


146001 




146001 






402 


001520' 


154001 




154001 






403 


901522* 


012000 




12000 






404 


001524* 


170001 




170001 






405 


901526' 


036000 




36000 






406 


•01530' 


024000 




24000 






407 


901532' 


162001 




162001 






108 


901534' 


120001 




120001 






409 


901536' 


066000 




66000 






410 


901540' 


074000 




74000 






411 


001542' 


132001 




1 32001 






412 


001544* 


050000 




50900 







NUB DEC/X11 SYSTEM EXERCISER MODULE HACY11 27(1006) 02"FEB-77 18104 PACE 10 
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SEQ 00U 



413 


•01546' 


116001 




tM 


•01550* 


104001 




41S 


•01552' 


•42000 




416 








417 








418 








419 








420 








421 








422 








423 








424 








425 








426 








427 








428 








429 








430 








431 


•01554' 


000000 




432 








433 


001556' 


012767 


177777 


434 


•01564' 


012567 


002654 


435 


•01570' 


012567 


002652 


436 


•01574' 


010046 




437 


•01576' 


010146 




438 


001600' 


010246 




439 


•01602' 


005067 


002642 


440 


•01606' 


012700 


003444* 


441 


•01612* 


012501 




442 


•01614' 


016702 


002620 


443 


•01620* 


122021 




444 


•01622' 


001016 




445 


•01624' 


005302 




446 


•01626* 


001374 




447 


•01630* 


012602 




448 


001632* 


•12601 




449 


•01634* 


012600 




450 


•01636* 


005067 


176166 


451 


•01642' 


005767 


002602 


452 


•01646' 


001001 




453 


•01650' 


005725 




454 


•01652' 


005067 


177676 


455 


•01656' 


000205 




456 


•01660' 


005267 


002564 


457 


•01664* 


005767 


002556 


458 


•01670' 


100757 




«59 


•01672' 


032767 


002000 


460 


•01700' 


001004 




461 


•01702* 


022767 


000004 


462 


•01710' 


003747 




463 


•01712* 


124041 




464 


•01714* 


016767 


002524 


465 


001722* 


016767 


002520 


466 


•01730* 


016767 


002504 


467 


•01736* 


160267 


176112 


468 


001742' 


005267 


176106 



116001 
104001 
42000 

;CKM3G - CHECK MSG GLOBAL SUBROUTINE 
(ONLY CHECKS H&S, HO HEADER AND NO CRC'S 
(PUT MODULI'S 'BEGIN- AFTER JSR CALL 

(PUT LOGICAL LINE t NEXT, IF BIT 15 IS SET DATA IS CHECKED 
I BUT NO DATA ERR MSG'S ARC TYPED 
;PUT ADDR Or MSG TO BE CHECKED NEXT 
;DO JSR R5,CKM8G+2 

7 RETURNS 2 BYTES PAST CALL IF ERROR 

; RETURNS 4 BYTES PAST CALL IF NO ERRORS 

(YOU MUST FIRST MAKE SURE LOCATION CKNSG IS ZERO 

jBtrOR JUMPING INTO THIS ROUTINE BECAUSE IT IS NOT RE-ENTREANT 

.'IF IT IS NOR ZERO YOU MUST DO BREAKS UNTIL ITS CLEARS 

J 



176130 
176120 
176116 



CKNsGt 





I FLAG 


LOCATION, » TO IF ROUTINE IS NOT IN 






I USE, 


ELSE ■ -1 




MOV 


•-IjCkHSG 


j SET FLAF TO BUSY 




MOV 


(R8)+,CKBSG 


j GET MODULE POINTER 




MOV 


(R6)+, CKLINE 


;GET LINE t 




MOV 


R0,-(R6) 


;SAVE R0 




NOV 


Rl#-(R6) 


; Ri 




MOV 


R2,-(R6) 


; *2 




CLR 


ERCNT 


(CLEAR ERRCOUNT 




MOV 


tHSG,R0 


(GET ADDR OF GOOD MSG 




MOV 


(R5)*,R1 


jCET ADDR OF MSG TO BE CK 'ED 




MOV 


MSG8IZ.R2 


(SET UP COUNTER 


1$: 


CMPB 


(RC)+,(Rl)t 


(COMPARE A BYTE 




BNE 


44 


jBR IF NOT EQUAL 


lltt 


DEC 


R2 


(ARE HE DONE? 




BNE 


11 


(BR IF NOT 


2$: 


MOV 


(R6)+,R2 


( R2 




MOV 


(R6)+,R1 


1 "1 




MOV 


(R6)t,R0 


; m 




CLR 


ERRCNT 


(CLEAR FOR NEXT CALL 




TST 


ERCNT 


(ANY ERROR? 




BNE 


3* 


;BR IF SO 




TST 


<R51* 


(BUMP RETURN ADDR 


3tt 


CLR 


CKNSG 






RTS 


R5 


(RETURN 


4*1 


INC 


ERCNT 


(UP ERR COUNT 




TST 


CKLINE 


(TYPE ERRORS? 




BMI 


24 


(BR IF NOT, EXIT 




BIT 


12*00,177570 


; PRINT ALL ERRORS? 




BNE 


5f 


(BR IF YES 




CMP 


14, ERCNT 


(HAVE HE DONE 3 ALREADY? 




BLE 


28 


(YES, GO EXIT 


511 


CMPB 


•(R«),-(Rt) 


(SET POINTERS BACK 




NOV 


CKStC.ACSR 


(GET MODULES NAME 




NOV 


CKLINE, CSRA 






MOV 


MSG8IZ, HA8ADR 


(TOTAL NUMBER OF CHARACTERS. 




SUB 


R2, HAS ADR 


(HAKE IT HHICH CHARACTER IN MESSAGE, 




INC 


NASADR 


(MAKE IT START WITH A ONE. 



N1AB DEC/XU SYSTEM EXERCISER MODULE 
N1AB.P11 1J-JAN-77 16(51 



HACYU 27(1006) 02-FEB-77 18104 PAGE 11 



469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
4*2 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



•01746' 
•01752' 
•01756' 
•01762' 
W1766' 
•01772* 
001776' 
•02002* 
•02006' 
•02012' 



112067 
112167 
010067 
010167 
010267 
010367 
910467 
010567 
010667 
017767 



032020* 042767 



•02026' 104405 



•02032' 
•02040' 
•02044' 
•02050* 
•02054' 
•02060* 
•02064' 
•02070* 



052767 
016706 
016705 
016704 
016703 
016702 
016701 
016700 



•02100' 
•02102' 
•02104* 
•02106' 
•02110' 
•02112' 
•02114* 



000000 
000000 

000000 

000000 



000000 
000000 



•02116' 
•02122' 
•02124' 
•02126' 
•02132' 
R02134* 
•021 36' 
•02140' 
002142' 
002144' 
•02146' 



005767 
001401 
000205 
010567 
01 1605 
010046 
010146 
01024b 
010346 
010446 
005067 



176104 
176102 
000116 
000114 
000112 
0*0110 
000106 
000104 
000102 
002426 

020000 

000000* 

020000 
000050 
000042 
000034 
000026 
000020 
000012 
000004 



•02074* 000167 177524 



176042 
00123^ 



R0SAVI 
R1SAV) 
R2SAVI 
R3SAVI 
R4SAV| 
R53AVI 
R6SAVI 

( 



MOVB 


CR0)+,ASB 




HOVB 


(Rl)t, ANAS 




HOV 


R0,R0SAV 


(SAVE R0 


MOV 


R1,R1SAV 


JR1 


MOV 


R2,R2SAV 


(R2 


MOV 


R3,R3SAV 




MOV 


P4,R4SAV 




MOV 


R5,R5SAV 




MOV 


R6,R6SAV 




HOV 


0CKBEG, BEGIN 


(MAKE FIRST TWO LETTERS OF ERR CALL MATC 






(CALLING MODULE'S 


BIC 


1020000, STAT 


(WAKE THIS MODULE UP FOR CALL 


DATER4 


BEGIN 


(DATA ERROR 111 


BIS 


1020000, STAT 


(PUT IT BACK TO SLEEP 


MOV 


R6SAV.R6 




MOV 


R5SAV.R5 




MOV 


R4SAV.R4 




HOV 


R3SAV,R3 




MOV 


R2SAV,R2 


(RESTORE R2 


MOV 


R1SAV.R1 


;R1 


HOV 


R0SAV.R0 


(R0 


JNP 


11* 


(GO CHECK SOME MORE 





( SAVE 


PLACE FOR REGISTERS 



THIS ROUTINE MAY BE CALLED BY NET MODULES DURING 
START-UP TO INITIALIZE THE HALF/FULL DUPLEX AND 
MULTI-DROP INFORMATION IN THE PHYTAB TABLE AND 
SET UP MULTI-DROP STATION ADDRESSES (IF REQUIRED). 

CALL) MOV IBEGIN.R5 

JSR R5 , DEVSET 

NOTEl DEVSET SET MUST BE DEFINED AS A GLOBAL AND ALL 

REGISTERS ARE PRESERVED. 



TST 
BEQ 
RTS 
MOV 
MOV 
HOV 
MOV 
MOV 
MOV 
MOV 
CLK 



TFLAG 

1$ 

R5 

R5, RET 

(SP),R5 

R0,-(SP) 

R1,-(SP) 

R2,-(SP) 

R3,-CSP) 

R4,-(SP) 

DFLAG 



(IS THIS ROUTINE INHIBITED? 

; BR IF NOT. 

; RETURN IMMEDIATELY. 

(SAVE THE RETURN ADDRESS. 

; GET THE ARGUMENT. 

;SAVE ALL REGISTERS. 



; FLAG TO CONTROL FLO*. - SEE BELOW. 
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PACE 12 



SEQ 0013 



525 


092152* 


005067 


001212 


526 


902156* 


01 7767 


000000G 


527 


902164* 


005077 


000000G 


528 








529 








530 








531 


902170 


01 1567 


001214 


532 


9021 7 4* 


01 6567 


000002 


533 


902202* 


004567 


176756 


534 


902*206* 


003374* 




535 








536 








537 








538 








539 








540 








541 


• 

092210 


004567 


1 76750 


542 


00221 4* 


095233 * 




543 


002216* 


005767 


001 144 


544 


902222 * 


001004 




545 


902224* 


004567 


176734 


546 


902230* 


005276' 




547 


9022 32 * 


000403 




548 


002234* 


094567 


176724 


5 49 


002240* 


00531 4 * 




550 


902242 * 


004567 


176716 


55 1 


002246 * 


905331 ' 




552 


902250 


01 6500 


0000 1 4 




'J'* , 




00PV1 o 


554 


002260 


005001 










0S306rr 




0022 70 


032700 


000001 


557 


902274 


00 1007 








PDO £W 




«o 




00620 3 






Sal 








\ ,f . 




0000«0 


562 


002 310 


««■»•» 
^ ' -\ 




563 


002 312 


000766 










00001 


565 


002320 


001003 




f it 


C02 3 52 * 


' ! ^ « 


A0AA6 1 


567 


002330 


01 0102 




568 


002 3 32' 


042702 


000010 


569 


002336* 


062702 


000060 


570 


902342* 


1 1 0267 


00301 4 










572 


f»02352* 


005353' 




573 


002354' 


1 05777 


000000G 


574 


002360* 


100375 




575 


002362' 


117702 


000000G 


576 


002366'' 


»42?02 


177600 


577 


002372' 


1 10267 


002040 


578 


002376' 


H04567 


176562 


579 


002402' 


004436* 




580 


002404* 


010267 


000754 



CLR 
MOV 
CLR 



MFLAG 

•TKS« TKSSAV 
•TKS 



I FLAG TO INSURE ONE MD MASTER ONLY. 
I SAVE THE TTY STATUS. 
; NO INTERRUPTS PLEASE. 



DSETll 



MTYPl 
CTYP: 



DSET2: 
OSET3I 



DSET4: 



•FIRST TWO CHARACTERS. 
; SECOND TWO CHARACTERS: 
(TYPE IT. 



TYPE MODULE 0AMF. 

NOV (R5),NAMEN 
MOV 2(R5>,N*SEM»2 
JSR R5.TYPE 
NAMEMG 

REQUEST HALF/FULL DUPLEX INFORMATION, (IF DFLAG * 0) 
REQUEST MULTI-DROP INFORMATION. (IF DFLAG ■ 1) 
NOTE* ir *0' IS TYPED, THE SUBROUTINE IS IMMEDIATELY 
TERMINATED. 



JSR 

8ETM1 

TST 

BNE 

JSR 

SETM2 

BR 

JSR 

8ETM3 

JSR 

SETM4 

MOV 

NOV 

CLR_ 

BIT 

BNE 

ASR 

ASR 

IMC 

CMP 

BEO 

BR 

CMP 

BNE 

MOVB 

MOV 

BIC 

ADD 

MOVB 

JSR 

SETM5 

TSTB 

BPL 

MOVB 

BIC 

MOVB 

JSR 

OOTPUT 
MOV 



R5»TYPE 

DFLAG 

MT-YP 

R5,TYPE 

CTTP 
RS»TYPE 

R5,TTPE 

14<R5),R0 
16{RS),R3 
Rl 

»6S#SET"6 
• 1,R9 
DSET4 
R0 

R3 
Rl 

•1*.,R1 
DEXT 
DSET2 
•10, Rl 
31 

SSijSETMS 

R1.R2 

110, R2 

t60,R2 

R2,SCTM6+1 

RS»TYPE 

»TKS 
48 

PTKB, R2 
•177600, F2 
R2# OUTPUT 
R5.TYPE 

R2,FCHAR 



•MULTI-DROP PASS? 
(BRANCH IF YES. 
(TYPE "HALF DUPLEX" 

^CONTINUE. 

j TYPE "MULTI-DROP" 



GET DVID1. 

GET SRI IN CASE DOING MULTI-DROP. 

INIT TO LINE ZERO. 

IBIT TYPE OUT. 

THIS LINE TO BE TESTED? 

BR IF YES. 

MOVE ONTO NEXT LINE. 

LINE NO. * LINE NO, ♦ 1. 
DONE ALL SIXTEEN? 
BR IF YES. 
CHECK THIS LINE. 
AT LINE TEN (OCTAL) ? 
BR IF YES. 

NOW DOING LINES WITH TWO DIGIT NOS. 
LINE NO. 

ISOLATE LOW ORDER DIGIT. 

MAKE IT ASCII. 

PUT IT INTO THE BUFFER. 

ASK THE OPERATOR ABOUT THIS LINE, 

CHARACTER? 
WAIT FOR IT. 
GET IT. 
ISOLATE IT. 
ECHO IT. 



•SAVE IT. 
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581 


002410' 


022702 


000015 






CMP 


•15, R2 


582 


002414' 


001423 








BEQ 


68 


583 


002416' 


105777 


000000G 




5S! 


TSTB 


HTKS 


584 


002422' 


100375 








BPL 


St 


585 


002424' 


117702 


000000G 






MOVB 


STKB.R2 


586 


002430' 


042702 


177600 






BIC 


1177600, R2 


587 


002434' 


1 10267 


001776 






MOVB 


R2, OUTPUT 


588 


002440' 


004567 


176520 






JSR 


R5, TYPE 


589 


002444' 


004436* 








OUTPUT 




590 


002446* 


122702 


000015 






CMPB 


#15, R2 


591 


•02452* 


001404 








BEO 


6t 


592 


002454* 


122702 


000177 






CMPB 


1177, R2 


593 


002460* 


001356 








BNE 


5t 


594 


002462* 


000734 








BR 


4t 


595 


002464* 


1 12767 


000012 


001744 


6s: 


MOVB 


t 12, OUTPUT 


596 


002472* 


004567 


176466 






JSR 


R5» TYPE 


597 


002476' 


004436* 








OUTPUT 




598 


002500* 


010502 








MOV 


R5,R2 


599 


002502' 


060102 








ADD 


R1,R2 


600 


002504' 


005767 


0006S6 






TST 


DFLAG 


60! 


002510' 


301402 








BEQ 


7t 


602 


902512' 


000167 


000102 






JMP 


MDROP 


603 


902516' 


022767 


000131 


000640 


781 


CMP 


M31,FCHAR 


604 


902524" 


001004 








BNE 


8t 


605 


002526' 


152762 


000100 


000212 




BISB 


tl00,212(R2) 


606 


002534' 


000660 








BR 


DSET3 


607 


002536* 


022767 


000100 


000620 


8$: 


CMP 


»100,FCHAR 


608 


002544' 


001404 








BEQ 


DEXT 


609 


002546' 


142762 


000100 


000212 




BICB 


I100,212CR2) 


610 


902554' 


000653 








BR 


DSET3 


Ml 


002556' 


00S767 


000604 




DEXT: 


TST 


DFLAG 


612 


002562' 


001003 








BNE , 


It 


613 


002564* 


005267 


000576 






INC 


DFLAG 


614 


002570* 


000607 








BR 


DSET1 


615 


002572* 


016777 


176474 


000000G 


it: 


MOV 


TKSSAV, 0T*S 


616 


002600' 


016705 


000556 






MOV 


RET,R5 


617 


002604' 


012604 








MOV 


(3P)+,R4 


618 


002606* 


012603 








MOV 


(SP)«,R3 


619 


002610' 


012602 








MOV 


(3P)+,R2 


620 


002612* 


012601 








MOV 


(SP)+,R1 


621 


002614" 


012600 








MOV 


(SP)+,R0 


622 


002616' 


000205 








RTS 


R5 


623 


002620' 


022767 


000131 


000536 


MDROP: 


CMP 


1 131.FCHAR 


624 


102626' 


001410 








BEQ 


It 


625 


902630' 


122767 


000100 


000526 




CMPB 


tl00,FCHAR 


626 


902636" 


001747 








BEQ 


DEXT 


627 


902640* 


142762 


000020 


000212 




BICB 


•20,212(R2) 


628 


902646* 


900613 








BR 


DSET3 


629 


902650' 


152762 


000020 


000712 


it: 


BISB 


«20,212(R2) 


630 


002656' 


032703 


000001 






BIT 


• 1,R3 


631 


002662* 


001450 








BEQ 


MDSLAV 


632 


002664' 


005767 


000503 






TST 


MFLAG 


633 


#0267«* 


001064 








BNE 


SECMAS 


634 


002672' 


005267 


000472 






INC 


MFLAG 


635 


002676' 


919502 








MOV 


R5,R2 


& 




CM A^fc? 








MOV 


tJ« .T.TM 



•CARRIAGE RETURN? 
•BR IF IT IS, 

•WAIT FOR CARRIAGE RETURN, 

J GET IT. 

( ISOLATE IT. 

jECHO IT. 

(CARRIAGE RETURN? 
((BR IF YES. 
•RUBOUT? 
;BR IF NOT. 
•RESTART. 

(TYPE A LINE FEED. 



•TOP OF MODULE. 

•OFFSET TO LINE ENTRY. 

(DOING MULTI-DROP? 

J BR IF NOT. 

; HANDLE MULTI-DROP, 

(FIRST CHARACTER A *Y'? 

•BR IF NOT. 

(FULL DUPLEX. 

(CONTINUE CHECKING. 

(IS IT AN '•'? 

;BR IF YES. 

(HALF DUPLEX. 

(CONTINUE. 

(DONE MULT I -DROP? 

;BR IF YES. 

(SET FOR MULTI-DROP. 

(DO IT. 

(RESTORE TTY STATUS. 
(RETURN ADDRESS BACK IN R5. 
(RESTORE REGISTERS. 



(WAS ANSWER YES? 

(BR IF NOT. 

(IS IT A "•"? 

(BR IF YES, 

(CLEAR THE FLAG. 

(CONTINUE. 

(SET THE FLAG. 

(IS THIS LINE MASTER? 

(BR IF NOT. 

(ALREADY HAD A MASTER LINE? 
(BR IF YES. 

(DON'T ALLOW ANOTHER MASTER , 
(BASE ADDRESS OF MODULE. 
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SEQ 0015 



637 


•02704' 


062767 


000331 


000460 


ADD 


1331, LIN 


; END OF MDMTAB. 


638 


002712* 


062702 


000312 




ADD 


#312, R2 


(BASE OF ADDRESS MENU TABLE. 


639 


•02716' 


•04567 


176242 




JSR 


RS, TYPE 


(ASK OPERATOR FOR ADDRESSES. 


640 


•02722* 


005376' 






8CTM8 






641 


•02724* 


•04767 


000132 


2tl 


JSR 


PC, ROCT 


;GET RESPONSE. 


643 


•02730' 


•22767 


000055 


000346 


CMP 


l55,C9UEUE-2 


(WAS IT MINUST 


643 


•027 36* 


•01415 






BEO 


3* 


(BR IF YES. 


644 


•02740* 


010167 


000420 




MOV 


Rl, FCHAR 


{HOLD Rl TEMPORARILY. 


645 


•0274 4' 


004767 


000353 




JSR 


PCASCOCT 


{CONVERT STRING TO OCTAL NO. 


646 


•02750* 


110112 






MOVB 


R1.CR2) 


;SAVE IT IN THE MENU TABLE. 


647 


002752' 


016701 


000406 




MOV 


FCHAR, Rl 


{RESTORE Rl. 


648 


•02756* 


005202 






INC 


R2 


(POINT TO NEXT BYTE. 


649 


•02760* 


020267 


000406 




CMP 


R2,LIM 


;FULL TABLE? 


650 


•02764* 


001357 






BNE 


21 


,-BR IF NOT. 


651 


•02766' 


000161 


177304 




JMP 


DSCT3 


;GO ON TO NEXT LINE, 


652 


•02772' 


1 12762 


000377 


000312 311 


MOVB 


f377,3l2(R2> 


{SHOW END OF TABLE ENTRIES. 


653 


•03000' 


000167 


177272 




JMP 


DSET3 


{CONTINUE. 


654 


•03004' 


004567 


176154 


HDSLAV: 


JSR 


R5, TTPE 


{ASK FOR SLAVE STATION ADDRESS. 


655 


•03010' 


005365' 






SETM7 






656 


•03012' 


004767 


000044 




JSR 


pc;roct 


{READ IT, 


657 


•03016' 


010167 


000342 




MOV 


R1,FCHAR 


( HOLD ONTO Rl, 


658 


•03022' 


004767 


000272 




JSR 


PCASCOCT 


{CONVERT RESPONSE TO OCTAL. 


659 


•03026' 


110162 


000272 




MOVB 


R1,272(R2) 


{SAVE IT. 


660 


003032' 


016701 


000326 




MOV 


FCHAR, R1 


{ RESTORE Rl. 


661 


•03036' 


000167 


177234 




JMP 


DSET3 


{CONTINUE. 


662 


•03042' 


004567 


176116 


SECMAS! 


JSR 


R5.TYPE 


{HAVE OPERATOR CORRECT PROBLEM 


66 3 


•03046 * 


005 42 1 






SMMSG 




{OF TWO MULTI—DROP MASTERS. 


664 


•03050' 


816777 


176216 


000000G 


MOV 


TK3SAV,0TKS 


{ RESTORE TTY STATUS. 


665 


•03056' 


000777 




is: 


BR 






666 


•03060* 


000776 






BR 


i* 


{WAIT FOR -C. 


667 








S 








668 








• 


READ 


ASCII STRING OF 


OCTAL DIGITS TERMINATED BY 


669 








1 


A CARRIAGE RETURN. 


RUBOUTS AMD *U ARE RECOGNIZED. 


670 
671 


•03062' 


012704 


003306' 


} 

ROCt: 


MOV 


ICQUEUE,R4 


jINIT THE QUEUE. 


672 


003066* 


010046 






MOV 


R0,-(SP) 


{ SAVE CALLER'S R0. 


673 


•03070* 


105777 


000000G 


is: 


TSTB 


• TICS 


{CHARACTER READY? 


674 


003074* 


100375 






BPL 


It 


{IF NOT, WAIT FOR IT. 


675 


003076' 


1177B0 


000000G 




MOVB 


0TKB, R0 


{GET THE CHARACTER. 


676 


•03102* 


042700 


177600 




BIC 


•177600, R0 


{STRIP IT. 


677 


•03106* 


022700 


000055 




CMP 


•55, R0 


{MINUS SIGN? 


678 


•03112' 


001431 






BEO 


31* 


{BR IF YES. 


679 


•03114* 


022700 


000015 




CMP 


115, Ra 


{IS IT A CR? 


680 


•03120' 


001426 






BEO 


31* 


{BR IF YES. 


681 


003122* 


022700 


000177 




CMP 


1177, R0 


{RUBOUT? 


682 


•03126* 


001004 






BNE 


2* 


{BR IF NOT. 


683 


•03130* 


1 124t>7 


001302 




MOVB 


(R4)+, OUTPUT 


{GET LAST CHARACTER. 


684 


003134' 


105724 






TSTB 


(R4)* 


{FIX POINTER. 


685 


•03136' 


000422 






BR 


4t 


{GO ECHO IT. 


686 


•03140' 


072700 


000025 


2tt 


CMP 


125, RO 


;"-U"? 


687 


•03144* 


001006 






BMC 


31 


{BR IF NOT. 


688 


•03146* 


004567 


176012 




JSR 


R5.TTPE 


{FORCE A CR-LF, 


689 


•03152' 


004472' 






CRLF 






690 


•03154' 


012704 


003306* 




MOV 


#COUEllE,R4 


{START WITH A FRESH OUEUE. 


691 


•0316,)' 


000743 






BR 


It 


{ RESTART THIS ROUTINE. 


692 


•03162* 


022700 


000060 


331 


CMP 


•60,Rfl 


{MUST BE BETWEEN 60 AND 67. 
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693 


003166* 


003024 




694 


00317(1* 


022700 


000067 


695 


•03174* 


002421 




696 


•03176* 


010044 




697 


•03200' 


1 10067 


001232 


698 


•03204' 


004567 


175754 


699 


•03210* 


004436* 




700 


•03212' 


•72700 


000015 


701 


003216* 


001324 




702 


•03220' 


1 12767 


000012 


703 


•03226' 


004567 


175732 


704 


003232' 


004436* 




705 


•03214* 


012600 




706 


•03236* 


000207 




707 


•03240* 


11 0067 


001 172 


708 


003244* 


004567 


175714 


709 


•03250* 


004436* 




710 


•03252' 


004567 


175706 


711 


•0 3256* 


003310' 




712 


003260' 


012704 


003306 


713 


•03264* 


000701 




714 








715 


•03266* 


000010 




716 


•03306' 






717 


•03306* 


000000 




718 


•03310' 


005015 


047516 


719 


•03316' 


000012 




720 








771 








722 








723 








724 








725 








726 








727 








728 








729 


•03320' 


005724 




730 


•03322' 


005714 




731 


•03324' 


001414 




732 


•03326' 


012446 




733 








734 


003330* 


162716 


000060 


735 


•03334' 


004767 


177762 


736 


•03340* 


006301 




737 


•03342' 


006301 




738 


003344* 


006301 




739 


•03346' 


062601 




740 


•03350' 


042701 


100003 


741 


•03354' 


000207 




742 


•03356* 


305001 




743 


•03360' 


000207 




744 








745 








7 46 


•03362' 


000000 




747 


003164' 


000000 




748 


•03366' 


P00004 





001210 



006441 TERRM t 



BGT 


St 


{(OCTAL DIGIT). 


CMP 


167, R0 


; ERROR IF HOT, 


BLT 


St 




MOV 


R0,-(R4) 


{CHARACTER TO QUEUE, 


MOVB 


R0, OUTPUT 


{ECHO IT. 


JSR 


R5.TYPE 




OUTPUT 






CMP 


tl5,R0 


{ WAS IT A LINE FEED? 


BNE 


It 


; BR IF NOT, 


MOVB 


112, OUTPUT 


{ SET UP TO TYPE... 


JSR 


R5, TYPE 


{...A LINE FEED. 


OUTPUT 






MOV 


(SP)+,R0 


{ RESTORE R0. 


RTS 


PC 


{ RETURN TO CALLER. 


HOVB 


R0, OUTPUT 


{CHARACTER IN ERROR. 


JSR 


R5.TYPE 


I ECHO IT, 


OUTPUT 






JSR 


R5, TYPE 


{WARN OPERATOR. 


TERRM 






MOV 


I CQUEUE, R4 


(TRY AGAIN WITH A FRESH 


BR 


It 




.BLKW 


10 


; INPUT QUEUE. 





.ASCIZ 



.EVEN 



<15><12>'N0J '«15><12> 



CONVERT ASCII STRING TO OCTAL. 

CHARACTERS IN COUEUE, TERMINATED BY CARRIAGE RETURN. 
NOTE: ONLY THE LAST FIVE DIGITS OF A STRING ARE VALID. 
CALL: JSR PCASCOCT 

OCTAL RETURNED IN Rl 

CONTENTS OF Rl AND R4 ARE LOST. 



SCOCT! TST 
SC01: TST 
BEQ 
MOV 

SUB 
JSR 
ASL 
ASL 
ASL 
ADD 
BIC 
RTS 

EXIT: CLR 
RTS 



PET: 

FCHAR: 

(5FLAG: 



(R4) + 

(R4) 

AEXIT 

(R4)t.-(SP) 

•60, (SP) 

PC,ASC01 

Rl 

Rl 

Rl 

(SP)+,R1 
1100000, Rl 

PC 
Rl 

PC 



{BYPASS THE CARRIAGE RETURN. 
{AT TOP OF INPUT SIACK? 
{BR IP YES. 

(CHARACTER (DIGIT) TO STACK. 

(TWO STACKS * ONE QUEUE 1 

{ STRIP TO OCTAL. 

(RECURSE. 

(MOVE WORD OVER 



(ADD NEXT DIGIT. 
(NO SIGN ALLOWED. 
(RETURN. 

(ALL DIGITS READ. 

; TAKE THE CHARACTERS FROM THE 

[OUEUE AND RETURN WITH THE OCTAL NO. 

[RETURN ADDRESS HELD HERE. 
[OPERATOR RESPONSE HELD HERE. 



NUB DEC/Xll SYSTEM EXERCISER MODULE MAC If 11 27(1006) 02-FEB-77 18104 PAGE 16 SEQ *W 



N1AB.PU 13-JAN-77 16:51 








749 


•03370* 


000000 






MFLAGl 




750 


003372' 


000000 






LIM: 




751 


003374* 


005015 


042516 


020124 


NANEHGl .ASCII 


<15><12>'NET MOD: ' 


752 


•03402' 


047515 


035104 


020040 






753 


•03410' 


047116 


047116 


005015 


NAMEM: .ASCIZ 


*NNNN*<15><13> ; MODULE NAME STORED HERE. 


754 


•03416* 


000 










755 




093420* 






.EVEN 




756 










} 




757 
758 










(CONSTANTS AND 


STORAGE LOCATIONS 


759 


•03420' 


000000 






; 

TIME! .WORD 


'HOLDS POINTE TO SYSTEM TIME 


760 










; THE FOLLOWING 


10 BYTES WILL DEFAULT TO 10 SYNC CHAR'S, 026 


761 










: THESE ARE USED 


BY SOME DECNET MODULE'S TRANSMIT ROUTINE 


762 










; THESE LOCATIONS HAY BE OVERWRITTEN WITH A NEW SYNC CHAR IF 


763 










(SOME USER SPECIFICS A "ON SID SYNC. IF HE DOES HE MUST CHANGE 


764 










;THE SYNC FOR ALL DEC NET MODULES THAT USE THIS SYNC HEADER. 


765 










; THESE WOULD BE 


THE NQA, NHA, ??? MODULES 


766 


•03422' 


•13026 






.WORD 


013026 


767 


•03424' 


013026 






.WORD 


013026 


768 


•03426' 


013026 






.WORD 


013026 


769 


•03430' 


013026 






.WORD 


013026 


770 


003432' 


013026 






.WORD 


013026 


771 


•03434* 


220 






MSGHEDl .BYTE 


220 jDLE, MEANS OFF-LINE MSG 


772 


•03435 * 


000 






COUNT: .BYTE 


jCOUNT AND FLAGS 


773 


•03436* 


000 






.BYTE 


> 


774 


•03437' 


000 






.BYTE 


;FILL 


775 


•03440* 


000 






.BYTE 


;FILL 


776 


003441 ' 


001 






.BYTE 


1 (ADDRESS 


777 


•03442' 


000000 






CRCHED: .WORD 


j HEADER CRC 


778 


003444' 


024 






MSG: .BYTE 


24 ;0SOP PROTOCOL CODE FOR "LOOP BACK" 


779 


•03445' 


015 


042412 


051122 


IMSG: .ASCII 


<15><12>"ERR0R CODES FOR NET MODULES { ASTAT) : *<15><12> 




SS3452' 






Sitii i 






761 


•03460* 


051505 


043040 


051 1 1 7 






7B2 


•03466* 


047040 


052105 


046440 






783 


•03474* 


042117 


046125 


051 505 






784 


003502' 


024040 


051501 


040524 






785 


003510' 


024524 


006472 


012 






786 


003515* 


060 


030460 


054060 


.ASCII 


'0C10XX REC TIME OUT*<15><12> 


787 


•03522' 


020130 


020040 


004440 






788 


•03530' 


042522 


020103 


044524 






789 


•03536' 


042515 


047440 


052125 






790 


003544* 


005015 










791 


•03546' 


030060 


030062 




.ASCII 


'8929XX TST CLOCK L0SS*<l5XJ 2> 


792 


•03554* 


020040 


020040 


05201 1 






793 


•03562' 


052115 


041440 


04751 4 






794 


•03570' 


045503 


046040 


051517 






795 


•03576' 


006523 


012 








796 


•03601 ' 


060 


031460 


054060 


.ASCII 


•0030XX HEADER CRC ERR0R'<15><12> 


797 


•03606* 


020130 


020040 


004440 






798 


•03614' 


042510 


042101 








799 


•03622' 


041440 


041522 


042440 






800 


•03630' 


051122 


051117 


005015 






801 


•03636* 


030060 


030064 


054130 


.ASCII 


•0040XX MSG CRC ERROR'<15><12> 


802 


•03644' 


020040 


020040 


046411 






803 


003652* 


043523 


041440 


041522 






804 


•03660' 


042440 


051122 


051117 
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805 


•03666* 


005015 






846 


003670* 


030060 


030065 


054130 


807 


003676* 


020040 


020040 


052011 


808 


•03704' 


052115 


052040 


046511 


809 


•03712* 


020105 


052517 


006524 


810 


•03720' 


012 






811 


003721 ' 


060 


033060 


054060 


812 


003726' 


020130 


020040 


004440 


813 


003734* 


046524 


020124 


047516 


814 


•03742' 


026516 


•54105 


051511 


815 


•03750* 


027124 


046440 


046505 


816 


•03756* 


005015 






817 


•03760' 


030060 


030067 


054130 


818 


•03766* 


1*20040 


020040 


052011 


819 


•03774' 


052115 


046040 


052101 


820 


•04002* 


P47105 


054503 


005015 


821 


•04010' 


030460 


030060 


054130 


822 


•04016' 


020040 


020040 


051011 


823 


•04024' 


041505 


050040 


051101 


824 


•04032* 


052111 


020131 


051105 


825 


•0404»* 


047522 


006522 


012 


836 


•04045* 


060 


030461 


054060 


827 


•04052* 


020130 


020040 


004440 


828 


•04060* 


042522 


020103 


047516 


829 


004066* 


026516 


054105 


05151 1 


830 


•04074' 


027124 


046440 


046505 


831 


•04102' 


005015 






832 


•04104' 


030460 


030062 


eS4130 


833 


•04112' 


020040 


020040 


051011 


834 


•04120' 


041505 


041440 


047514 


835 


•04126* 


045533 


046040 


051517 


836 


•04134' 


•06523 


012 




837 


•04137' 


060 


030062 


054060 


838 


004144* 


020130 


020040 


004440 


839 


•04152* 


042522 


020103 


051106 


840 


•04160' 


046501 


047111 


020107 


841 


•04166' 


•51105 


047522 


006522 


842 


•04174* 


012 






843 


•04175' 


060 


030064 


6)54060 


844 


•04202' 


£20130 


020040 


004440 


845 


•04210' 


042522 


020103 


053117 


846 


•04216' 


05 1 1 05 


052522 


020116 


847 


•04224' 


051117 


046040 


052101 


848 


•04232* 


C47105 


054503 


005015 


849 


•04240* 


000 






850 


•04241 ' 


116 


020117 


054523 


851 


•04246* 


052123 


046505 


041440 


852 


•04254* 


047514 


045503 


020054 


853 


•04262* 


046120 


040505 


042523 


854 


•04270' 


051040 


041505 


047117 


855 


•04276' 


044506 


052507 


042522 


856 


•04304' 


020054 


043520 


020115 


857 


•04312* 


044527 


046114 


044040 


858 


004320* 


0461*1 


000124 




859 




004434' 






860 


004434* 


000 







MACYU 27(1006) 02-FEB-77 18(04 PAGE 17 



.ASCII '0050XX TMT TIME 0UT'<15><12> 



.ASCII '0060XX TMT NON-EXIST. MEM'<15><12> 



.ASCII '0070XX TMT LATENCY'<15><12> 



.ASCII '0100XX REC PARITY ERR0R'<15><12> 



.ASCII '0110XX REC NON-EXIST. MEM*<15><12> 



.ASCII '0120XX REC CLOCK L0SS*<15><12> 



.ASCII '0200XX REC FRAMING ERR0R'<15><12> 



.ASCII '0409XX REC OVERRUN OR LaTENCY'<15><12> 



NOCLKM: .ASCIZ 'NO SYSTEM CLOCK, PLEASE RECONFIGURE, PGM WILL HAL1 ' 



.sMSG+504, 

crcmsg: .byte 



(MSG CRC 



NUB DEC/Xtl SYSTFM EXERCISER MODULE 
NUB.P11 13-JAN-77 16 1 5 1 
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SEU 0019 



861 
862 
863 
864 

86S 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 



•04435' 

004436' 
•04440' 
•04442' 
•04444' 
•04446' 
•04450' 



000 

000000 
000765 
000000 
000000 
000000 

000000 



•04452' 
•04454* 

•04456* 
004460' 
•04462' 
004464' 

004466' 



001016' 
001010' 
000622' 
000520* 
000524* 
000532' 
000556' 



004470* 000000 



•04472' 
•04475' 
•04502* 
•04510' 
•04516' 
•04524' 
•045 32' 
004540' 
•04544' 
•04552* 
•04560* 
•04566' 
004574' 
•04602' 
•04610' 
•04616* 
•04624' 
•04630' 
•04636* 
004644* 
•04652' 
004660* 
•04666* 
•04674' 
•04700' 
004706' 
•04714* 
•04722' 
•04730' 
•04735' 
•04742* 
•04750' 
•04756* 



005015 
015 
041505 
053524 
042524 
051505 
047440 
027116 
030050 
020122 
047506 
050114 
005015 
0*2520 
051117 
020123 
347117 
020040 
020040 
042523 
044526 
042515 
•20105 
047117 
020040 
020040 
•40524 
070104 
043501 
040 
020040 
051525 
051505 



000 
051412 
020124 
051117 
052123 
040523 
052120 
005015 
033055 
044042 
020122 
035051 
020040 
020040 
052040 
050117 
005015 
020040 
020040 
050040 
052517 
051523 
050117 
•05015 
020040 
020040 
042116 
042515 
006505 
•20040 
020040 
051105 
040523 



046105 
042516 
020113 
046440 
042507 
047511 

047440 
020042 
042510 
000040 
054524 
043040 
044510 
044524 

020060 
052440 
042522 
020123 
043501 
044524 

020061 
051440 
051101 
051523 
012 
031040 
020040 
046440 
042507 



.BYTE 
.EVEN 
.WORD 
501 . 
.WORD 
.WORD 
.WORD 
.WORD 



;ONE WORD CHAR BUFFER FOR TTY OUT 
' GLOBAL r SIZE OF DATA MSG (NO HEADER) 

t NETWORK MODULES WAIT FOR THIS TO BE 
tTMP STORAGE FOR POINTER TO CALLING MODULE 
;TMP STORAGE FOR LOGICAL LINE I 
jCOUNTS • OF ERRORS 



OUTPUT! 
MSGSIZI 
WAIT: 
CKBEGt 
CKLINEl 
ERCNTl 

jPWRCHTll . WORD DEFINED IN MONITOR OABL OH AND IS A GLOBAL - POWER FAIL INDICATOR FOR 
J 



1 

ODISPl 



OPTION DISPATCH TABLE. 



FINISH 

DONE 

USER 

ZEROS 

ONES 

ALTER 

WORST 



; ERROR RECOVERY. 

} STANDARD MESSAGE. 

jUSER DEFINED MESSAGE. 

; ALL ZERO BYTES MESSAGE. 

j ALL ONE BYTES MESSAGE. 

{ALTERNATE ONE AND ZERO BITS , 

, WORST CASE MESSAGE. 

jONE TIME TYPE OUT FLAG. 



CRLFJ .A5CIZ <15><12> jCARRl AGE RETURN - LINE FEED. 

GETMC: .ASCII <t5><12>'SELECT NETWORK TEST MESSAGE OPTION .'< 1 5X1 2> 



.ASCIZ *(0-6 OR "H" FOR HELP) I ' 



HELPMj .ASCII <15><12>* TYPE FOR THIS 0PTI0N*<15><12> 



.ASCII ' USE PREVIOUS MESSAGE OPTION '< 1 5 >< 1 2> 



STANDARD MESSAGE" < 1 5X1 2> 



USER MESSAGE*<15><12> 



N1AB 0EC/X11 SYSTEM EXERCISER MODULE 
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N1AB.P1 


13- 


IAN-77 


6l5i 










917 


004764* 


005015 












918 


004766* 


020040 


020040 


020063 




.ASCII 


3 ALL ZEROS MESSAGE*<15><1 2> 


919 


•04774* 


020040 


•20040 


040440 








920 


■05002* 


046114 


055040 


051 105 








921 


•05010' 


051517 


046440 


051505 








922 


•05016' 


040523 


042507 


005015 








923 


005024* 


020040 


020040 


020064 




.ASCII 


4 ALL ONES MESSAGE'<15><12> 


924 


•05032' 


020040 


020040 


040440 








925 


0054)411' 


»461 14 


047440 


042516 








926 


•05046' 


070123 


042515 


051523 








927 


•05054' 


043501 


006505 


012 








928 


•05061 ' 


040 


020040 


032440 




.ASCII 


' 5 ALTERNATING 1 AND B ITS '< 1 5X 1 2> 


929 


005066' 


020040 


020040 


020040 








930 


•05074* 


046101 


042524 


047122 








931 


•05102* 


052101 


047111 


020107 








932 


•051 10' 


020061 


047101 


020104 








933 


•05116' 


P20060 


044502 


051524 








934 


005124' 


005015 












935 


•05126' 


020040 


020040 


020066 




.ASCIZ 


6 FOUR BIT C0UNT*<15><12> 


936 


•05134' 


020040 


020040 


043040 








937 


•05142' 


052517 


020122 


044502 








938 


•05150' 


420124 


047503 


047125 








939 


•05156' 


006524 


000012 










940 


005162' 


054524 


042520 


054440 


USERMi 


.ASCIZ 


'TYPE YOUR MESSAGE TERMINATED WITH "0- '< 15><1 2> ' I * 


941 


005170' 


052517 


020122 


042515 








942 


•05176' 


051523 


043501 


020105 








943 


005204' 


042524 


046522 


047111 








944 


•05212' 


052101 


042105 


053440 








945 


•0522B' 


052111 


020110 


040042 








946 


•05226' 


006442 


021412 


000 








947 


•05233* 


123 


042520 


044503 


SETMlt 


.ASCIZ 


'SPECIFY IF THE FOLLOWING LINES ARE' 


948 


005240' 


054506 


044440 


020106 








949 


•05246' 


044124 


020105 


047506 








950 


•05254* 


0461 14 


053S17 


047111 








951 


005262' 


620107 


044514 


042516 








952 


•05270' 


020123 


051101 


000105 








95 3 


•05276* 


043040 


046125 


020114 


SETM2I 


•ASCIZ 


' FULL DUPLEX ' 


954 


•05304' 


052504 


046120 


054105 








955 


•05312' 


000040 












956 


•05314' 


046440 


046125 


044524 


SETM3S 


• ASCIZ 


* MULTI-DROP ' 


957 


•05322' 


042055 


047522 


020120 








958 


005330' 


000 












959 


•05331 ' 


050 


024531 


047440 


SETM4I 


•ASCIZ 


'(Y) OR NOT(CR).'<15><12> 


960 


•05336' 


020122 


047516 


024124 








961 


•05344' 


051103 


027051 


005015 








962 


•05352' 


000 












963 


•05353' 


114 


047111 


020105 


SETM5 1 


•ASCII 


'LINE •' 


964 


005360' 


043 












965 


•05 361 ' 


116 


020116 


000 


SETM6: 


.ASCIZ 


' NN * 


966 


•05365' 


101 


042104 


042522 


SETM7 | 


.ASCIZ 


' ADDRESS* " 


967 


•05372* 


051523 


000075 










968 


•05376* 


046123 


053101 


070105 


SETM8: 


.ASCIZ 


'SLAVE ADDRESSES|*<15X12> 


969 


•05404' 


042101 


051104 


05150S 








97H 


005412' 


042523 


035123 


005015 








971 


005420' 


000 












972 


005121' 


015 


052012 


047527 


SMMSG! 


.ASCII 


<15><12>'TW0 MULT1DH0P MASTER LINES NOT »l,LO«FD . ' < 1 5>< 1 2> 
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973 


005426* 


•46440 


046125 


044524 


974 


•05434* 


•51 104 


050117 


046440 


975 


005442* 


•51501 


042524 


020122 


976 






04251 6 




977 


005456* 


047516 


020124 


046101 


97t 


•05464* 


•47514 


042527 


027104 


979 


•05472' 


•05015 






960 


•05474' 


054524 


042520 


057040 


5S1 


805502' 


£20163 


0471S1 


020104 


982 


•05510' 


044506 


020130 


051123 


983 


•05516' 


•27061 


000 




984 




•00001 







■ASCII 'TYPE "C AMD FIX SRI. 



N1AB DEC/X11 SYSTEM 


EXERCISER MODULE 


MACY11 


27(1006) 


N1AB.PU 13-JAN- 


77 16:51 




cross 


REFERENCE 


ACSP 


000052R 


1071 


464* 






ADDP 


•00006 R 


861 








AFXIT 


003356R 


731 


742* 






ALTEP 


000532R 


207# 


878 






AS8 


•0005 6 R 


110t 


469* 






ASCOCT 


•0332PR 


645 


658 


729* 




ASCOl 


003322R 


730» 


735 






ASTAT 


•0005 4R 


1091 








AWAS 


•00060R 


111* 


470* 






BDCNV » 


»»•••• G 


11 








BEGIN 


000000R 


831 


291 


478* 


482 


BTT0 * 


000001 


120* 








BIT1 * 


•00002 


120t 








BIT10 » 


•02000 


120* 








BIT11 s 


004000 


120* 








BIT12 = 


010000 


1201 








BIT13 = 


•20000 


1201 








BIT14 * 


040000 


1201 








BIT15 ■ 


1 00000 


1201 








BIT2 » 


•00004 


1201 








BIT3 i 


•00010 


120* 








BIT4 = 


•00020 


!20i 








BIT5 s 


•00040 


120* 








BIT6 * 


000100 


120* 








BTT7 » 


•00200 


120* 








BIT8 « 


•00400 


120* 








BIT9 * 


001000 


120* 








BREAKS* 


104407 


120* 








BP1 


00001 2R 


88* 








BR2 


•0001 3R 


89* 








CDATAS* 


104414 


1201 








CK6EG 


•04444R 


434* 


464 


478 


866* 


CKLINE 


004446R 


435* 


457 


465 


867* 


CKMSG 


001554RG 


122* 


161* 


431* 


433* 


CLOCK » 


•••••• G 


120* 


130 






COUNT 


•03435R 


275* 


276* 


277* 


772* 


COUEOE 


•03306K 


642 


671 


690 


712 


CRC 


•01Z76KG 


122* 


2B0 


285 


341* 


CRCHED 


•03442R 


282* 


777* 






CPCHSG 


•04434RG 


122* 


210 


220 


287* 


CRCTAB 


P01454R 


357 


362 


384* 




CRLF 


004472R 


269 


689 


8841 




CSRA 


•000S0R 


105* 


465* 






CTYP 


002242R 


547 


550* 






OATCK»« 


104417 


120* 








DATEPSa 


104405 


120* 


482 






DEVSET 


•02116RG 


122* 


514* 






DEXT 


•02556R 


562 


608 


bill 


626 


DFLAG 


•03366K 


524* 


543 


600 


611 


DONE 


001010R 


211 


221 


272* 


874 


DSET1 


•02710R 


541 • 


614 






DSET2 


002270R 


5561 


563 






DSLT3 


•02276R 


558* 


606 


610 


628 


DSET4 


002314R 


557 


564* 






OVIOl 


•0001 4R 


90* 








ENDPSS* 


104402 


120* 


291 
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613* 748* 



651 653 661 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0023 



ENDS a 


104403 


1201 








ERCNT 


004450R 


419* 


451 


456* 


461 


ERRCNT 


000010R 


971 


450* 




ERRN8 ■ 


104410 


1201 








ERRORf a 


1 04404 


1 20t 








pchIr * 


1 04400 












If JJOtR 


7 * 




607 


623 


FILCNTa 




1 20* 


308 




FILL 


0005 36R 


203 




208 1 




F I LLERa 






309 






FINISH 


001 01 6R 


268 


27 31 


871 








164 


8851 






GETMSG 


#003 40R 


1 67 1 








GETPAS * 












GOPT 


000254R 


1 34 


1 38 


142 


1511 


GWBUF$a 


1 044 1 2 


1 20i 






HELP 


000502R 


1 88 


190 


1 951 




HELPM 


004574R 


1 95 


8961 






IMFLAG 


004470R 


153 


159* 


8811 




IMSG 


003445R 


158 


7791 




INIT 


000022R 


94* 








KH11L a 


*••»•• G 


1201 


133 






KH11P x 


»••••• G 


1201 


1 37 






KH11X x 




1201 


141 






LIM 


003372R 


636* 


637* 


649 


750 


MAP22$a 


1 8*415 


1201 








MDROP 


002620R 


602 


623* 






MDSLA V 


003004R 


631 


654V 






MFLAG 


003370R 


525* 


632 






MODNAM 


B00000R 


841 








MODSP 


0001 6 4R 


95 


1 181 






MSG 


003444RG 


121' 


167 


208 


41 » 


MSGHEO 


003434RG 


1 2 1 • 


278 


711 1 
















HSGSIZ 


004440RG 


1 21 1 


267* 


272* 




MSGSS a 


1 04416 


1 201 








MSG$ 3 


1 04406 


1 201 








MTYP 


002234R 


544 


5481 






NAMEM 


0034 1 0R 


531* 


532* 


7511 




NAMEMG 


003374R 


534 


751 1 






NOCLKM 


004241R 


143 


850* 






OACNV a 




1 1 








ODISP 


004452R 


194 


8731 






ONES 


000S24R 


204t 


877 






OPEN * 


000000 


85 


91 


98 


99 






lit 


1201 


145 


166 


OUTPUT 


H04436R 


17S* 


176 


181* 


184 






697* 


699 


702* 


704 


PASCNT 


000026R 


961 








PlROt x 


000004 


1201 








POPSP a 


005726 


1201 








POPSP2» 


022626 


120f 








PPTY x 


0000P0 


88 


89 


120t 




PRTY0 a 


»0000>) 


1201 








PPTYI a 


000040 


1201 








PRTY2 « 


000100 


120t 









623 625 644* 647 657* 660 747» 



284 288 



442 466 



100 

178 

257* 

707* 



101 
18* 
2»« 

709 



102 103 

197 237 

577* 579 
8611 



104 105 
260 271 
587* 589 



107 109 
281 286 
595* 597 



110 
683* 
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USER SYMBOLS 



N1AB.PU 13-JAN-77 


16151 




CROSS 1 


REFERENCE 


TABLE ■ 


PRTY3 a 


•401 4» 


1201 










PPTY4 a 


000200 


120* 










PRTY5 x 


000240 


1201 










PRTY6 x 


000 303 


1201 










PPTY7 * 


•00340 


1201 










PS x 


177776 


1201 










PSM ■ 


177776 


1201 










PUSH x 


005746 


1201 










PUSH2 ■ 


024646 


1201 










PWRCNTx 


•••••» G 


1221 










QUE* x 


104401 


1201 










RFSTRT 


000166R 


112 


1301 








RET 


903362R 


517* 


616 


7461 






ROCT 


003062R 


641 


636 


6711 






RSTPT 


00006 2 R 


1121 










R0SAV 


002100R 


341* 


380 


471* 


491 


4951 


R15AV 


•02102R 


142* 


179 


472* 


490 


4961 


R2SAV 


M2t04R 


343* 


378 


473* 


489 


4971 


R3SAV 


002106P 


344* 


377 


474* 


488 


4981 


R4SAV 


0021 ICR 


162* 


163* 


345* 


376 


475* 


R5SAV 


•02112R 


476* 


486 


5001 






R6SAV 


0021 14R 


477» 


485 


5011 






SBADR 


00005 2 R 


1061 










SECMAS 


003042R 


633 


662i 








SFTM1 


00523 3R 


542 


9471 








SETM2 


005276R 


546 


9531 








SETM3 


005314R 


549 


9561 








SETM4 


005331R 


551 


9591 








SETMS 


00535 3R 


572 


9631 








SETMb 


M5361R 


555* 


566* 


570* 


9651 




SETM7 


005365R 


655 


9661 








SFTM8 


00S376R 


640 


9681 








SMMSG 


00542 1R 


663 


9721 








SPOINT 


00002 4 R 


951 










SPSIZ ■ 


000040 


11 


111 








SP x 


•••••• G 


1221 


155 








SP1 


000016R 


911 










START 


000166R 


94 


1291 








STAT 


000024R 


931 


4R0* 


484* 






SVR0 


000032 R 


981 










SVR1 


000034R 


991 










SVR2 


000036R 


1001 










SVR3 


000040R 


1011 










SVR4 


000042R 


1021 










SVR5 


000044R 


1031 










SVR6 


000046R 


1041 










TERPM 


003310R 


711 


7181 








TFLAG 


000164R 


1771 


514 








TIME 


003420RG 


1201 


113* 


1 17* 


141* 


160* 


TKB x 


•••••• G 


1211 


173 


243 


575 


585 


TKS a 




1211 


168 


169* 


171 


219* 






673 










TKSSAV 


001272R 


168* 


274 


3231 


526* 


615 


TPB x 


•••••• G 


1211 


3»9» 


314* 






TPS x 




1211 


3*2 


3P3* 


310 


315 


TPSSAV 


001274R 


3t*3» 


320 


324t 







487 



7591 
675 

241 274* 
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TPX ■ 9001*00 
TRAPX * 000020 
TYPE 001164RG 



USER 

USERM 

VECTOR 

WAIT 

HASADR 

WORST 

XFLAG 

EEROS 



000622R 
•05162R 

004442RG 
000054R 
000SS6R 
000005R 

M5S21R 



120f 

120* 

121* 

545 

70S 

235* 

235 

87* 
1211 
10S« 
2171 

•51 
202* 
172 



144 
548 

Tie 

• 75 
9401 

273* 
466* 
•79 

S?e 
311 



157 
550 



165 
571 



177 
57« 



1»5 
59« 



19b 
596 



236 
639 



259 
654 



270 
662 



299* 
688 



533 
698 



541 

703 



§6S» 

467» 468* 



316 665 715* 755* (59* 



. ABS, 000000 000 
005521 001 



ERRORS DETECTED I 

DEFAULT GLOBALS GENERATED | 

N1AB, NlAB/S0L/CRFtSYH>ODXCOM,MlAB 
PUN-TIMEt t 2 .2 SECONDS 
RUN-TIME RATIOl 20/4*4.9 
CORE USED I OK (IS PAGES) 
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1 .REM % 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 IDENTIFICATION 

13 
14 

15 PRODUCT CODEl MAINDEC-1 1 -DXNUA-A-D 

16 

17 PRODUCT NAME: DU-11 DECNET DEC/X11 EXERCISER MODULE 

18 

19 DATE: 21-JUN-76 

20 

21 MAINTAINER: DEC/X11 DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN , 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL. 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS, 

38 
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1 , ABSTRACT 

THIS TYPE OF DEC/Xll MODULE, REFERRED TO AS DECNET DEC/X11 MODULE, 
WILL DFTECT SYSTEM INTERACTION ERRORS WHEN RUN IN CONJUNCTION WITH 
OTHER DEC/Xll MODULES EXERCISING OTHER DEVICES ON THE SYSTEM. 
ERRORS ARE REPORTED ON THE SYSTEM CONSOLE AS THEY OCCUR OR AS A 
SUMMARY REPORT, AT THE OPERATORS OPTION, IN ADDITION, THESE 
MODULES MAY BE USED TO VERIFY THE CONDITION OF THE ASSOCIATED 
MODEMS AND COMMUNICATION LINKS, IT WILL ONLY TEST COMMUNICATIONS 
PATHS CAPABLE OF RUNNING DDCMP, THIS MEANS THE DEVICES MUST USE 
NO PARITY t 8 LEVEL CODE, AND TERMINALS CANNOT BE TESTED, 



NOTE 



THIS DOCUMENT ASSUMES FAMILIARITY WITH 
THE PHILOSOPHY AND OPERATION OF DEC/Xll, 
THE DETAILS OF LINKING, LOADING, AND 
RUNNING MODULES UNDER DEC/Xll CAN BE 
FOUND IN THE DEC/Xll USERS DOCUMENTATION 
AND REFERENCE GUIDE, MAINDEC-1 1 -DXQBA , 
THE READER SHOULD ALSO HAVE READ THE 
DECNET DEC/Xll USER'S GUIDE, 

MAINDEC-1 1-DXOBC, WITHOUT THROUGHLY 
UNDERSTANDING THAT DOCUMENT, THERE IS 
LITTLE HOPE OF SUCCESSFUL TESTING, 



2. HARDWARE REQUIREMENTS 



THESE MODULES REQUIRE A COMPLETE PATH FROM A COMMUNICATIONS DEVICE 
TO A COMMUNICATIONS DEVICE, THIS MAY BE ACCOMPLISHED THROUGH A 
VARIETY OF METHODS: 



A, 1 PROCESSOR, 1 COMM. DEVICE, AND A LOOP BACK DEVICE WITH 
MODEM SIMULATION CAPABILITIES, (MUST RUN FULL DUPLEX) 

B, 1 PROCESSOR, 2 COMM. DEVICES, 2 MODEMS 

C, 2 PROCESSORS, 2 COMM. DEVICES* 2 MODEMS 

UP TO SIXTEEN LINES CAN BE HANDLED BY ONE MODULE BUT ONLY 2 
LINES ARE KEPT RUNNING SIMULTANEOUSLY. 



3, SOFTWARE REQUIREMENTS 

A. THE DEC/Xll MONITOR MUST BE OABK OR A LATER REVISION, 

B, THE N 1 A? MODULE MUST BE CONFIGURED DIRECTLY AFTER THE 
MONITOR* 
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C. ALL NETWORK MODULES MUST BE CONFIGURED NEXT. 

D, THE N2A? MODULE MUST BE CONFIGURED NEXT.* 

E. ONE OF THE 3 CLOCK MODULES MUST BE CONFIGURED NEXT, EITHER 
KWA?, KWB?, OR KWX? 

F, ANY OTHER DESIRED DEC/Xll MODULES CAN THEN BE CONFIGURED IN 
ANY ORDER. 



4. PRELIMINARY TESTING 



THE APPROPRIATE STAND ALONE DIAGNOSTICS MUST BE RUN TO VERIFY THE 
CPU, AND THE COMMUNICATIONS DEVICE, THEN A DEC/Xll EXERCISER 
USING THE CONVENTIONAL (MAINTENANCE MODE) DEC/Xll MODULES FOR THE 
COMMUNICATIONS DEVICES MUST BE RUN, IF BOTH THESE STEPS PASS 
SUCCESSFULLY, DECNET DEC/Xll MAY BE ATTEMPTED • 



5, PROGRAMMING CONSIDERATIONS 



A, OTHER THAN THE REQUIREMENTS MENTIONED IN 3 REGARDING THE 
ORDER IN WHICH MODULES MUST BE REQUIRED, THESE DECNET DEC/Xll 
MODULES WILL BE COMPLETELY COMPATIBLE WITH THE DEC/Xll 
MONITORS AND ALL OTHER MODULES. THE ONLY OTHER EXECPTION IS 
THAT FOR A GIVEN COMMUNICATIONS DEVICE, THERE WILL NOW BE 2 
DIFFERENT DEC/Xll MODULES CAPABLE OF BEING RUN, THE OLDER 
MAINTANCE MODE TYPE REQUIRING NO CONNECTIONS TO THE 
COMMUNICATION DEVICE, AND THE NEW DECNET TYPE REQUIRING A 
COMPLETED COMMUNICATIONS PATH. IT WILL BE POSSIBLE (AND 
SOMETIMES DESIREABLE) TO CONFIGURE 2 DIFFERENT DEC/Xll 
MODULES IN ONE RUN TIME EXERCISER WHICH TEST THE SAME 
PHYSICAL DEVICE. IF THIS IS DONE, ONLY ONE OF THE 2 MODULES 
MAY PE SELECTED FOP THE SAME RUN, 

B. USING THESE DECNET DEC/Xll MODULES, IT IS POSSIBLE TO HAVE 
MANY NODES CONNECTED IN A NETWORK, ALL RUNNING DEC/Xll 
TOGETHER, ALL THESE EXERCISERS WOULD HAVE BEEN STARTED AT 
DIFFERENT TIMES, DUE TO DIFFERENT HARDWARE ON EACH SYSTEM, 
RUN TIMES AND END OF PASS TIMES MIGHT VARY CONSIDERABLY , 
THEREFORE IT IS NECCESSARY THAT THESE DECNET DEC/Xll MODULES 
BE EXTPEMELY PATIENT AND HAVE A HIGH RETRY CAPABILITY IN ALL 
OPERATIONS. THIS HOWEVER, MEANS IT SOMETIMES MAY TAKE A LONG 
TIME (ON THE ORDER OF 10 MINUTES) BEFORE AN OPERATOR FINDS 
OUT A LINE IS DEFINITELY NOT RUNNING. 



C. DUE TO THE EXCESSIVE PROGRAMMING COMPLICATIONS AND LARGE 



• THESE ARE DESCRIBED IN THE DECNET DEC/Xll USER'S GUIDE, 
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BUFFERS REQUIRED TO RUN MANY LINES FROM ONE MODULE ALL AT THE 
SAME TIME, TT WAS DECIDED TO ONLY RUN 2 AT ANY ONE TIME. IF 
THE MODULE IS SET TO RUN 16 LINES, IT WILL RUN 1 PAIR FOR THE 
NUMBER OF TRANSFERS INDICATED BY LOCATION LPCNT, THEN IT WILL 
RUN A 2ND PAIR, THEN 3RD, ETC UP TO THE 8TH PAIR. IT WILL 
THEN REPORT AN END OF PASS AND GO BACK TO THE FIRST PAIR, 
THEN 2ND, ETC. THIS FORCES SOME CONSIDERATIONS TO BE MADE 
WHEN CONNECTING LINES TOGETHER SO THAT A LINE IN THE ACTIVE 
MODE IS NOT WAITING ON A LINE IN THE DORMANT MODE, PLEASE 
READ THE DECNET DEC/Xjll USER'S GUIDE, ESPECIALLY THE SECTION 
ON 2 LINES AT A TIME CONSIDERATIONS, 

D. THESE MODULES WILL, AS A GENERAL RULE, USE THE MINIMUM AMOUNT 
OF FEATURES OF A COMMUNICATION DEVICE REQUIRED TO SEND AND 
RECEIVE MESSAGES. THIS MEANS THAT CRC CALCULATING HARDWARE, 
CHARACTER RECOGNITION HARDWARE, ETC, WILL NOT BE USED, THESE 
FEATURES ARE FULLY TESTED BY STAND ALONE DIAGNOSTICS. 



6, OPERATING PROCEDURES 



A. THE MODULE Is CONFIGURED, LOADED, AND RUN AS SPECIFIED IN THE 
DEC/X11 REFERENCE GUIDE. 

B. CONSOLE SWITCHES ARE STANDARD FOR DEC/X11 

C. THE N1A? MODULE WILL SOLICIT FROM THE OPERATOR WHICH TYPE OF 
MESSAGE HE WANTS TO USE FOR DECNET ACTIVITY. THE OPTIONS 
INCLUDE: 



ALL ONES 
ALL ZEROS 

ALTERNATING ONES AND ZEROS 

A DIGIT (4 BIT) REPEATING COUNT PATTERN 

A PRECANNED ASCII MESSAGE 

USER SPECIFIED BY TYPING IN 



D. THE N2A? MODULE WILL MAKE ANY AUTOMATIC PHONE CONNECTIONS 
USING ANY DN-U'S PRESENT AND WILL REQUEST THE OPERATOR TO 
DIAL ALL MANUAL CONNECTIONS. ALL OPERATORS AT EACH NODE 
UNDER TEST MUST REACH THIS POINT BEFORE ANY ONE NODE 
CONTINUES INTO THE EXERCISING PHASE, 

E. THE N2A? MODULE WILL REQUEST A CARRIAGE RETURN WHEN THE 
OPERATOR WANTS TO BEGIN EXERCISING HIS NODE, 

F. THERE ARE MANY OPTIONS WHICH MAY BE ALTERED BEFORE RUN TIME, 
THEY INCLUDE: 

(1) LOCATION t64 IS A SWITCH WHICH INDICATES WHETHER OR NOT 
ALL ERRORS SHOULD BE REPORTED AS THEY HAPPEN, IF 
LOCATION 164 IS NON-ZERO (EQUAL TO N), THEN ERRORS ARE 
TOTALLED (ON A LINE BY LINE BASIS) ; EVERY N PASSES THIS 
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TOTAL NUMBER OF ERRORS FOR THE PREVIOUS N PASSES WILL BE 
REPORTED. THE VALUE OF N IS THE VALUE OF LOCATION 164. 
THE MAXIMUM NUMBER OF ERRORS THAT CAN BE TALLEYED IS 256 
PER LINE. THEREFORE IF A LINE IS NOT KNOWN TO BE OF 
VERY GOOD QUALITY, THE VALUE OF LOCATION 164 TIMES THE 
VALUE OF LOCATION 166 SHOULD BE LESS THAN 128, 
(LOCATION 166 IS DEFINED NEXT.) THIS MEANS THE NUMBER OF 
MESSAGES PER PASS TIMES THE NUMBER OF PASSES PER SUMMARY 
REPORT SHOULD BE LESS THAN 128, IN THIS WAY, IF EVERY 
MESSAGE ATTEMPTED HAS AN ERROR ON BOTH TRANSMIT AND 
RECEIVE, THE ERROR TALLY WILL NOT OVERFLOW. IF THE LINE 
IS OF KNOWN GOOD QUALITY, THIS RESTRICTION MAY BE 
RELAXED, THE DEFAULT VALUE IS TO NOT REPORT TOTAL 
ERRORS. (LOG 164*0) OF COURSE DEC/XU KEEPS TOTALS FOR 
THE ENTIRE RUN, REGARDLESS. 

(2) LOCATION 166 INDICATES HOW MANY ITERATIONS SHOULD BE 
DONE BEFORE AN END OF PASS IS CALLED. AN ITERATION Is 
NORMALLY ONE TRANSMIT AND ONE RECEIVE, IN EITHER ORDER. 
THE DEFAULT VALUE IS 8. 

(3) LOCATION 170 IS A TIME SCALING FACTOR. THERE ARE MANY 
TIME OUT LOOPS IN THE MODULES, SOME SHOULD LOGICALLY BE 
LONGER THAN OTHERS, THE VALUE IN LOCATION 170 IS THE 
NUMBER OF SECONDS TO WAIT FOR THE SMALLEST TIME OUTS. 
SOME TIME OUTS WILL BE A MULTIPLE OF THIS FACTOR. 
DEFAULT IS 30 SECONDS. 

(4) LOCATION 172 IS AN ERROR TOLERATION LEVEL, ON A SINGLE 
MESSAGE BASIS, SO IF IN AN ATTEMPT TO DO ONE ITERATION 
(USUALLY A TRANSMIT THEN REClEVE OR VICE-VERSA) THE 
NUMBER OF ERRORS REACHES THE VALUE IN LOCATION 172, THAT 
LINE IS DROPPED FROM TESTING. IF BEFORE THIS LEVEL IS 
REACHED, AN ITERATION IS CORRECTLY COMPLETED, THEN THE 
ERROR COUNT WHICH IS COMPARED TO LOCATION 172 IS RESET 
TO ZERO. THE DEFAULT IS 10. 

(5) LOCATION 174 CONTAINS 2 IDENTICAL BYTES FOR USE AS SYNC 
CHARACTERS. THE DEFAULT IS 113226 WHICH IS 2 BYTES OF 
226. IF THIS IS CHANGED, BOTH BYTES MUST BE IDENTICAL 
TO EACH OTHER. THIS LOCATION IS A DON'T CARE FOR 
ASYNCHRONOUS DEVICES, BECAUSE THEY "SYNC" ON THE FIRST 
BYTE OF THE ACTUAL MESSAGE, NOT ON PRECEDING CHARACTERS 
AS SYNCHRONOUS DEVICES DO. 

(6) LOCATION 176 IS AN ADDRESS, IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN RECEIVE-ONLY MODE, HE SELECTS THE LINE 
FOR HALF DUPLEX, POlNT-TO-POlNT, SLAVE, (BIT 7 * 1, 
BITS 4,5, AND 6 r 0'S IN THE PHYSICAL LINE TABLE, SEE 
ITEM 6-F-9 BELOW). THEN PATCH THE LOCATION POINTED TO 
BY LOCATION 176 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
SLAVE BY THIS MODULE TO RUN IN RECEIVE ONLY MODE. THIS 
LOCATION MAY BE PATCHED BACK TO A 401 TO RESUME NORMAL 
REC-TMT TESTING, 
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(7) LOCATION 200 IS AM ADDRESS, IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN TRANSMIT-ONLY MODE* HE SELECTS THE 
LINE FOR HALF DUPLEX, POINT-TO-POINT, MASTER (BITS 7 AND 
5 * l'S, BITS 4 AND 6 s 0'S IN THE PHYSICAL-LINE TAfaLE. 
SEE ITEM 6-F-9 BELOW.) THEN PATCH THE LOCATION POINTED 
TO BY LOCATION 200 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
MASTER BY THIS MODULE TO RUN IN TRANSMIT ONLY MODE. THE 
LOCATION MAY BE PATCHED BACK TO 401 TO RESUME NORMAL 
TMT-REC TESTING. 



G, LOCATIONS D VA , VCT, BRl AND BR2 MUST BE SET TO PROPERLY MATCH 
THE FIRST DEVICE TO BE TESTED BY THIS MODULE. 



7. ERROR REPORTING 



A. ERRORS ARE EITHER TOTALLED AND PRINTED AS SUMMARIES ON A LINE 
BY LINE BASIS, Or THEY ARE PRINTED As THEY OCCUR. SEE 
SECTION 6F1. THEY ARE 2 CLASSES OF ERRORS DATA ERRORS AND 
OTHER ERRORS. 



B, DATA ERRORS ARE ACTUALLY REPORTED BY THE N1A? MODULE BECAUSE 
THIS IS WHERE THE SHARED DATA COMPARE ERROR ROUTINE IS 
LOCATED. SO ALL DECNET DEC/Xll MODULE DATA COMPARE ERRORS 
LOOK LIKE THE STANDARD DEC/X11 DATA COMPARE ERROR MESSAGE 
EXCEPT t 

(1) THE MODULE NAME TYpED Is FFXX, WHERE FF IS FILLED IN TO 
BE THE NAME OF THE DECNET DEC/Xll MODULE WHICH CALLED 
THE Nl A? MODULE TO DO THE COMPARE. IN OTHER WORDS FF 
REPRESENTS THE MODULE THAT "HAD" THE ERROR „ 

(2) THE ERROR NUMBER IS A COUNT OF THE DATA COMPARE ERRORS 
IN THE CURRENT MESSAGE BEING CHECKED, IT IS THEREFORE 
RESET TO ZERO EVERY TIME A NEW MESSAGE IS TO BE CHECKED. 

(3) ACSR CONTAINS THE ADDRESS OF THE DECNET DEC/Xll MODULE 
WHICH CALLED THIS ROUTINE TO HAVE ITS MESSAGE CHECKED. 

(4) SBADR CONTAINS THE LINE • OF THE DEVICF WHICH HAD THE 
DATA ERROR . 

(5) WASADR CONTAINS THE COUNT (IN OCTAL) OF WHICH CHARACTER 
IN THE MESSAGE THIS BAD CHARACTER WAS. 

(6) THE "SHOULD BE AND "WAS" ITEMS ARE NORMAL. 



C. OTHER ERRORS ARE REPORTED USING THE NORMAL ERROR CALL IN 
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319 DEC/X11 CSRA AND ACSR ARE STANDARD , STATC CONTAINS A CODED 

320 

321 

322 ERROR NUMBER, WITH THE CODE BEING CONSISTENT IN ALL DECNET 

323 DEC/Xtl MODULES. THE LOW ORDER 2 DIGITS OF STATC CONTAIN 

324 WHICH LINE HAD THE ERROR THE OTHER DIGITS CONTAIN THIS CODE t 
325 

326 0010XX REC TIME OUT 

327 0020XX TMT CLOCK LOSS 

328 0030XX HEADER CRC ERROR 

329 0040XX MSG CRC ERROR 

330 0050XX TMT TIME OUT 

331 0060XX TMT NON-EXISTENT MEMORY 

332 0070XX TMT LATENCY 

333 0100XX REC DATA PARITY ERROR 

334 0110XX REC NON-EXISTENT MEMORY 

335 0120XX REC CLOCK LOSS 

336 0200XX REC FRAMING ERROR 

337 0400XX REC OVERRUN OR LATENCY ERROR 
338 

339 THIS METHOD SHOULD ELIMINATE THE CONSTANT NEED FOR HAVING A 

340 LISTING ON HAND TO DECIDE WHAT THE ERRORS WHERE, THE FIRST 

341 TIME THE RUN TIME EXERCISER IS RUN AFTER LOADING, THE N1A? 

342 MODULE WILL TYPE THIS ERROR CODE LIST OUT TO THE SYSTEM 

343 CONSOLE FOR THE OPERATORS SUBSEQUENT USE, 
344 

345 

346 D. ALL ERRORS HAVE A RETRY LIMIT (SEE SECTION 6F4) WHICH CAN BE 

347 MODIFIED. 
348 

349 

350 E, ON POWER-FAIL, POWER-UP CONDITIONS, DECNET DEC/X11 MODULES 

351 WILL DROP THEMSELVES, THIS IS DONE BECAUSE THE PHONE 

352 CONNECTIONS WILL HAVE BEEN LOST AND OPERATOR INTERVENTION 

353 WILL BE REQUIRED. 
354 

355 
356 

357 8. TEST SEQUENCE 

358 

359 LINES ARE TESTED BY PAIRS IN SEQUENTIAL ORDER, THIS ORDER MAY BE 

360 MODIFIED BY MODIFYING THE pHfsICAL LINE TABLE. ( SEE DECNET 

361 DEC/X11 USER'R GUIDE). THERE APE SEVERAL TESTING OPTIONS WITH 

362 SLIGHTLY DIFFERENT FUNCTIONS MAKING UP An ITERATION: 
363 

364 

365 A. POINT-TO-POINT SLAVE, IN THIS CASE THE LINE WAITS TO RECEIVE 

366 A MESSAGE, WHEN IT DOES, IT CHECKS IT, AND THEN TRANSMITS A 

367 MESSAGE BACK. IT WILL REpORT ERRORS ON EXCESSIVE WAITS, 
368 

369 

370 B. POINT-TO-POINT MASTER, IN THIS CASE THE LINE SENDS A MESSAGE 

371 AND WAITS TO RECEIVE ONE IN RETURN, IT THEN CHECKS THE 

372 RECEIVED MFSSAGE, IF IT TIMES-OUT, IT TRANSMITS AGAIN, IT 

373 WILL CONTINUE TO TIME OUT AND RE-TRANSMIT UNTIL EITHER A 

374 MESSAGE IS RECEIVED, OR IT TIMES OUT COUNT EQUALS LOCATION 
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172, THE ERROR TOLERATION LEVEL. (SEE SECTION 6F4). IT WILL 
THEN REPORT AN ERROR AND BEGIN AGAIN. AFTER THE NUMBER OF 



CONSECUTIVE TlME«OUT ERRORS REPORTED EQUALS LOCATION 172, THE 
LINE WILL BE DROPPED. 



C. POINT-TO-POINT SLAVE RECEIVE ONLY. IN THIS MODE THE LINE 
WAITS ONLY TO RECEIVE, CHECKS THE MESSAGE, AND WAITS TO 
RECEIVE AGAIN. 



D. POINT-TO-POINT MASTER -TRANSMIT ONLY . IN THIS MODE THE LINE 
JUST TRANSMITS AND THEN TRANSMITS AGAIN ,ETC. 



E. MULTl-DROp MASTER. IN THIS MODE, THE LINE WILL SEND A DDCMp 
MESSAGE OUT FOR THE ADDRESS CONTAINED IN THE MULTI-DROP MENU 
TABLE, WAIT TO RECEIVE A MESSAGE BACK, AND THEN CHECK THE 
DATA. 

* NOT YET IMPLEMENTED 



F, MULTl-DROp SLAVE. IN THIS MODE, THE LINE WILL WAIT FOR A 
MESSAGE WITH THE MATCHING ADDRESS, THEN IT WILL TRANSMIT A 
MESSAGE. 

• NOT YET IMPLEMENTED 



G, THESE BASIC ITERATIONS ARE REPEATED UP TO THE NUMBER OF TIMES 
IN LOCATION 166. (SEE SECTION 6F2) FOR EACH LINE SELECTED 
FOR TEST, AND THE END-OF-PASS IS DECLARED. 



9. PASS TIMES 



PASS TIMES ARE EXTREMELY CONFIGURATION DEPENDENT. DIFFERENT BAUD 
RATES, MESSAGE SIZES, AND TESTING MODES ALL GREATLY AFFECT 
THE PASS TIME. BELOW ARE SOME BALL PARK TIMES, BUT ANY ONE 
SYSTEM COULD VARY TREMENDOUSLY FROM THESE: 

-RUNNING ALONE, 1 LINE ON AN 11/05 AT 9600 BAUD, HALF DUPLEX, 
POINT-TO-POINT, WITH A 512 CHARACTER MESSAGE, TAKES 15 
SECONDS. 



NOTE 1 AT VARIOUS MONITOR CALLS THROUGHOUT THIS MODULE, IT IS LIKELY THAT 
WHEN 2 LINES ARE RUNNING, A MONITOR CALL CAN BE MADE AND BEFORE CONTOrL IS 
RETURNED TO THE MODULE, THE OTHER LINE MAY CAUSE THE EXACT SAME CALL TO BE 
MADE. IN FACT, WHEN RUNNING 2 LINES FULL DUPLEX, IT MAY BE POSSIBLE TO HAVE 
4 CALLS TO THE MONITOR FROM ONE SPOT IN THE MODULE, BEFORE THE FIRST CALL IS 
RETURNED FROM , THIS IS WHY AT SUCH CALLS, THE CODE SETS COUNTERS 
BEFORE DOING CALLS, SO THAT WHEN U Is RETURNED TO, IT CAN KEEp WHICH 



NUAA DEC/X11 SYSTEM EXERCISER MODULE 
NUAA.P11 

431 
432 
433 
434 
435 
436 
437 



MACY11 27(732) 20-MAY-76 12(28 PAGE 10 SEQ 0034 



LINE DID WHAT STRAIGHT. 



NOTE 2 WHEN RUNNING 2 LINES LOOPED TO EACH OTHER OUT OF THE SAME 

MODULE, THE LOW ORDER ONE ( PER ORDER OF DVC, LOC . 14) SHOULD BE THE SLAVE, 

AND THE HIGHER ORDER ONE SHOULD BE MASTER, 

t 
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NUAA.P! 












438 






{ MODEM 


RATES MUST BE THE SAMElllll 


439 


#08000' 






IOMOD <NUAA >, 


1,4,5,5 


440 


•00000' 






MODULE 140000, 


NUAA ,1,4,5,5, 


441 








.TITLE NUAA DEC/Xil SYSTEM EXERCISER MODULE 


442 






; 


DDXCO^ VERSION 


4 9/6/75 


443 








.LIST BIN 




444 












445 


000000* 




BEGIN > 






446 


000000* 


052516 840501 


040 SODNAWj 


•ASCII /NUAA / 


{MODULE NAME. 


447 


000005 * 




XFLAGj 


.BYTE OPEN 


-USED TO KEEP TRACK Or WBUFF USAGE 


448 


080006' 


000001 


ADDRi 


1+0 


{1ST DEVICE ADDR. 


449 


000010* 


000004 


VECTORt 


4*0 


j 1ST DEVICE VECTOR. 


450 


900012' 


240 


SRI : 


■ BYTE PRT*3-fr0 


-IS? BR LEVEL* 


451 


000013' 


240 


BR2 s 


.BYTE PRTY5*0 


;2ND BR LEVEL. 


452 


000014' 


000001 


DVIDl ! 


* 1 


jDEVICE INDICATOR 1. 


453 
454 


000016' 


000000 


SRI : 


OPEN 


(SWITCH REGISTER 1 


455 


900020' 


1 40000 


STAT: 


140000 


; STATUS WORD. 


456 


000022' 


000132' 


INIT: 


START 


{MODULE START ADDR. 


457 


000024' 


000164* 


spoint: 


HODSP 


•MODULE STACK POINTER. 


458 


000026* 


000000 


pascnt: 





;PASS COUNTER. 


459 


00003Q' 


000000 


ERRCNTl 





;ERROR COUNTER. 


460 


000032' 


300000 


SVR0: 


OPEN 


;LOC TO SAVE R0. 


461 


000034' 


900000 


SVR1 j 


OPEN 


;LOC TO SAVE Rl, 


462 


000036' 


C00000 


SVR2 : 


OPEN 


,LOC TO SAVE R2. 


463 


000040' 


900000 


SVR3: 


OPEN 


,LOC TO SAVE R3. 


464 


000042' 


000000 


SVR4I 


OPEN 


jLOC TO SAVE R4. 


465 


000044' 


000000 


SVR5t 


OPEN 


;LOC TO SAVE R5. 


466 


000046' 


000000 


SVR6 1 


OPEN 


{LOC TO SAVE R6. 


467 


000050' 


000000 


CSRAi 


OPEN 


•ADDR OF CURRENT CSR. 


468 


0*0052' 




SBADRt 




; ADDR OF GOOO DATA, OR 


469 


000052' 


900000 


ACSR; 


OPEN 


{CONTENTS OF CSR. 


470 


000054' 




WASAORl 




; ADDR OF BAD DATA, OR 


471 


000054' 


000000 


ASTAT: 


OPEN 


;STATOS REG CONTENTS. 


472 


000056' 


000000 


ASB; 


OPEN 


{EXPECTED DATA. 


473 


000060' 


000600 


AWASl 


OPEN 


; ACTUAL DATA, 


474 


000062' 


0005 32* 


RSTRTi 


RE3TRT 


{ RESTART ADDRESS AFTER END OF PASS 


475 








.KEPT SPSIl 


{MODULE STACK STARTS HERE. 


476 








.NLIST 




4 7 7 








.WORD 




478 








.LIST 




479 








. ENDR 




480 


0ti«164" 




HODSP: 






481 






{•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••a********* 


482 








. GLOBL WAIT, TIME, MSG8IZ, CKMSG, CRCMSG.MSGHED, MSG, PWRCNT 


483 








.GLOBL DEVStT 




484 
485 












486 


000164' 


000000 


REPORTI 





{FLAG, IF 'I, THEN ERRORS ON RECEIVED MSG'S 


487 










{ ARE TOTALLED AND PRINTED EVERY • PASSES 


488 










;IT *0, ERRORS ARE ALL REPORTED AS THEY HAPPEN 


489 


000166' 


000010 


LPCNT? 


10 


: ITERATIONS PER END PASS CALL 


490 


000170* 


000036 


tiheln: 


30. 


{TIME OUT FACTOR, IN SECONDS 


491 


000172' 


000012 


ERRLVLt 


10. 


; NUMBER Or ERRORS TOLERATED 


492 


000174* 


1 13226 


SYNC J 


113226 


{2 BYTES OF SYNC CHARACTER 


493 


000176' 


001150* 




ONEREC 


{ ADDRESS OF WHERE 240 GOES 
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494 
495 
496 

497 
498 
499 
500 
501 
502 
50 3 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 



000200' 001472' 

000202* 030000 

000204' 000000 

000206* 900000 

(•007 10' aeiaaaa 



I ADDRESS OF WHERE 240 GOES 



000212' 
000213' 
000214' 
000215' 
000216' 
000217' 
000220' 
000221 ' 
000222' 
000223' 
000224' 
000225' 
000226' 
000227* 
000230' 
000231 ' 



000 
001 
002 
00 3 
004 
005 
006 
007 
010 
011 
012 
013 
914 
015 
016 
017 



SPAREi: 

SPARE2 1 

SPARE3: 

SPARE* ! 9 



physical line table. byte contains the physical 
{line t for the first line to be run, byte 1 will be 
; the physical line run second, etc. 
; each byte in the table has the following bit meanings: 
;bit 0-: 

?BIT 4 
J BIT 5 
{BIT 6 
;BIT 7 
PHYTABI 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



PHYSICAL LINE 

FOR POINT-TO POINT, 1 FOR MULTI-DROP 
rOR SLAVE, 1 FOR MASTER (DERIVED FROM SRI) 
FOR HALF DUPLEX, 1 FOR FULL 
DO NOT TEST, 1 TEST (DERIVED FROM DVIDl) 




ERpT»B . KEEPS TRACK OF RETRY ERROP 
EACH LINE 



532 










533 


000232' 


000 


EPRTAB: .BYTE 





534 


000233* 


000 


.BYTE 





535 


000234' 


000 


.BYTE 





5 36 


000235' 


000 


.BYTE 





537 


000236' 


000 


.BYTE 





538 


000237' 


000 


.BYTE 





539 


P00240' 


000 


.BYTE 





540 


000241' 


000 


.BYTE 





541 


000242' 


000 


.BYTE 





542 


00024 3' 


000 


.BYTE 





543 


000244' 


000 


.BYTE 





544 


000245' 


000 


.BYTE 





545 


000246' 


000 


.BYTE 





546 


000247' 


000 


.BYTE 





547 


000250* 


000 


.BYTE 





548 


030251 ' 


000 


.BYTE 


f 
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SEQ 0037 



''f 






S 




55 1 


00025 2 ' 




JECOUNT TABLE KEEPS TRACK Of t OF BAD MSG'S 


552 


000 


ECOUNT! .BYTE 





55 3 


00025 3 


000 


.BYTE 





554 


•00254 


000 


.BYTE 





555 


000255 


000 


.BYTE 





556 


000 2 5 6 * 


000 


.BYTE 





557 




'J? 


.BYTE 





558 




~~ ? 


. BYTE 





559 


00026 1 * 


000 


.BYTE 





560 






.BYTE 





56 1 


i???; . » 


000 


.BYTE 





562 


000264 


000 


.BYTE 





56 3 






.BYTE 





564 


000266 * 


000 


.BYTE 





565 


000267 * 


aaa 


.BYTE 







000270 * 


aaa 


.BYTE 





567 


000271 


aaa 


.BYTE 

! 



















1 










; MULTI-DROP STATION ADDRESS TABLE 


571 






;BYTE IS THE 


MULTI-DROP STATION ADDRESS 


572 






(FOR LOGICAL LINE 0, BYTE I I« fOR LOGICAL LINE 1, ETC. 


573 






;THIS ENTRY ONLY HAS MEANING IT CORRESPONDING 


574 






( BYTE IN PHYSICAL LINE TABLE HAS BITS 4 AND 7 SET 


575 






( AND BIT 5 OFF 


IE MULTI-DROP SLAVE TO BE TESTED 


576 


000272 


000 


MDATABl .BYTE 





577 


00027 3 " 


001 


.BYTE 


1 


578 


00027 4 


002 


.BYTE 


2 


579 


000275 * 


003 


.BYTE 


3 


580 


000276 " 


004 


.BYTE 


4 


581 


000277* 


005 


.BYTE 


5 


582 


000300" 


006 


.BYTE 


6 


58 3 


000301 * 


007 


.BYTE 


7 


'?* 


000302 


010 


.BYTE 


10 


585 


000303 


01 1 


.BYTE 


11 


586 


000304 * 


01 2 


.BYTE 


12 


587 


000305 * 


013 


.BYTE 


13 


568 


000306" 


01 4 


.BYTE 


14 


589 


000307 * 


015 


.BYTE 


15 


59«) 


000310* 


016 


.BYTE 


16 


591 


00031 1 ' 


017 


.BYTE 


17 


592 










593 






; MULTIDROP STATION ADDRESS NCNU TABLE 


594 






;THIS TABLE INDICATES TO ANY LINE RUNNING AS 


595 






(MULTI-DROP MASTER, WHICH STATION ADDRESS TO 


596 






( ATTEMPT TO EXERCISE ON THE MULTI-DROP LINE 


597 






;IT ALLOWS UP TO IS DIFFERENT STATIONS TO BE 


598 






.'TESTED ON A LINE. EACH BYTE WHICH IS N0T»-1 








; INDICATES A STATION ADDRESS TO BE TESTED. EACH 


600 






; STATION IS TESTED, BY THE ORDER OF THE TABLE, 


601 






J UNTIL THE FIRST OCCUPANCE OF A -1 (BINARY 11111 111) 


602 






> 




603 


000312' 


377 


MDMTABI .BYTE 


-1 


604 


000313* 


377 


.BYTE 


-1 


605 


000314' 


377 


.BYTE 


-1 
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606 


000315' 






607 


900316' 






608 


000317* 






609 


000320' 






610 


000321 * 






611 


000322' 






612 


000323' 






613 


000324' 






614 


000325' 






615 


000326* 






616 


000327* 






617 


•003 30' 






618 


900331' 






619 
620 








621 








622 


0003 32' 


016700 


177456 


623 


000336* 


P01002 




674 


900340' 


104403 


000000' 


625 


900344' 


012705 


000000* 


626 


900350' 


004567 


000000G 


627 


900354' 


012767 


000200 


628 


000362' 


012701 


000232' 


629 


000366' 


006300 




630 


•00370* 


193003 




631 


•010372' 


156741 


004232 


632 


•90376* 


000402 




633 


000400' 


146741 


004224 


634 


000404' 


105061 


000040 


635 


000410' 


020127 


000211' 


636 


000414' 


001 364 




637 


900416" 


026727 


004206 


638 


•00424' 


001406 




639 


000426' 


012767 


000043 


640 


000434' 


016700 


177356 


641 


000440" 


000750 




642 


900442" 


005201 




643 


900444* 


016700 


177336 


644 


000450' 


105721 




645 


•00 45 2* 


1 00010 




646 


000454' 


012710 


000002 


647 


000460' 


112767 


000074 


648 


000466' 


016760 


177502 


649 








650 








651 








652 


000474' 


062700 


000010 


653 


000500' 


020127 


000232' 


654 


000504' 


P01361 




655 


000506* 


095067 


004114 


656 


000512' 


005767 


000000G 


657 


000516" 


•91405 




658 


000520' 


104407 


000000' 


659 


000524* 


104407 


000000' 


660 


•00530' 


000766 




661 









2f I 
3t: 



4U 

5SI 



177507 
000002 



.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






NOV 


DVID1.R0 


; GET DEVICES TO BE TESTED 


BNE 


It 


(ANY ACTIVE? 


ENDS, BEGIN 


t 


NOV 


1 BEGIN, R5 


; PREPARE FOR NXT JSR 


JSR 


RS,DEVSET 


; GO ASK FOR PARAMETERS 


MOV 


1 200.MASK 


(SET UP MASK 


MOV 


IPHYTAB+16., 


Rl (GET END OF DEVICE TABLE 


ASL 


R0 


(CHECK EACH BIT 


BCC 


46 


|BR IF NOT ON 


BISB 


MASK,-(R1) 


{SET THIS LINE ACTIVE 


BR 


St 




BICB 


MA6K,.(R1) 


(CLEAR THIS LINE 


CLRB 


32. (Rl) 


(CLEAR ECOUNT TABLE 


CMP 


Rl , iPHYTAB-1 


;DONE7 


BNE 


3t 


jBK IF NOT 


CMP 


MASK, 14(5 


;BEEN HERE BEFORE? 


BEO 


b» 


(BR IF YES 


MOV 


140, MASK 


(SET UP MASK 


MOV 


SR1,R0 


(GET SLAVE/MASTER INFO 


BR 


21 


(GO SET UP 


INC 


Rl 


(GET PHYTAB ADDR 


MOV 


ADDR, R0 


(GET DEVICE ADDR 


TSTB 


(Rl) + 


(DEVICE ACTIVE? 


BPL 


8t 


(BR IF NOT 


MOV 


t2,(R0) (SET 


DATA TERM READY 


MOVB 


I74.SYNC+1 




MOV 


3YNC,2(R0) 


(WRITE PARAMETER CONTROL 



(PARITY OFF 
(8 BITS PER CHAR 
(SYNCHRONOUS INTERNAL FILE 
ADD 110, R0 (BUMP R0 

CMP Rl, IPHYTAB+16. (DONE? 

BNE 7t (BR IF NOT 

CLR MSGCNT (COUNTS WHEN TO DO SUMMARY 

TST WAIT (LINES SET UP? 

BEO RESTRT (BR IF YES 

BREAK!, BEGIN (TEMPORARY RETURN TO MONITOR.... 

BREAK! , BEGIN I THEN CONTINUE AT NEXT INSTRUCTION. 

bR 9! (WAIT TILL WAIT IS CLFAHED BY NET2 
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662 
663 
664 

665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
732 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 



;THR0UGH-0UT THE PROGRAM MANX LOCATIONS ARE REFERENCED 
;OFF OF (R4). THIS IS A MEANS OF KEEPING TWO SETS OF 
.•VARIABLES, ONE FOR EACH OF THE ACTIVE LINES. 
;R4 ALWAYS CONTAINS A IF THE PROGRAM IS CURRENTS I 
.•REFERENCING LINE OR A 2 IF IT IS REFERENCING 
(LINE 1. 



•00532* 
•005 36* 
•00540* 
•00544' 
900546* 
•00552' 
•00556' 
•00562' 
•00566* 
•00572' 
•00576' 
•00602' 
000606' 
•00612' 
•00616* 
•00622* 
000626* 
•00632* 
•00636' 

000642' 
0006 46' 
•00652' 
•00660* 
000664' 
•00672' 
000674* 
000700' 
•00704* 
000710' 
•00714' 
•00716* 
•00720* 
•00724* 
•007 3d* 
00073 4* 
•00743* 
•00744' 
000750* 
•00754' 
•0076*' 
•00764* 
•00770' 
999772' 



•00774' 
•01000* 



005767 
P01402 
104403 
005004 
S16706 
005067 
005067 
005067 
005067 
•05067 
005067 
005067 
005067 
005067 
005067 
605067 
005067 
005067 
•05067 

035067 
005067 
012767 
005067 
026727 
001440 
016700 
010064 
105060 
005267 
1 1 1 000 
002362 
016701 
004767 
P10164 
016701 
004767 
010164 
005267 
005064 
005064 
032703 
001377 
99042? 



035767 
001402 



000000* 

177252 
004224 
084222 
•04223 
••4216 
004214 
004212 
004210 
004206 
004204 
004202 
•04200 
004176 
004174 
004172 

004132 
004124 

000212' 003752 
004004 

003742 000232' 

003732 
004676* 
000020 
003716 



177062 

004106 

004634' 

177050 

004072 

004640' 

003714 

004712' 

004772* 

000020 



REstrt: tst 

BEO 
END* , 
lft CLR 
MOV 
CLR 
CLP 
CLR 
CLR 
CLR 
CLP 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 

CLR 
CLR 
NOV 
CLR 

GETNXTt CMP 
BEO 
MOV 
HOV 
CLRB 
INC 
MOVE 
BGE 
MOV 
JSR 
HOV 
MOV 
JSR 
MOV 
INC 
CLR 
CLR 
BIT 
BNE 
BR 



TST 

BEQ 



PWRCNT 
It 
BEGIN 
R4 

SPOINT, R6 

DROPR4 

DR0PR4+2 

DTERR4 

DTCRR4+2 

CRCR4 

CRCR4+2 

RCT0R4 

RCT0R4+2 

TXT0R4 

TXTOR4*2 

FDBKR4 

FDBKR4+2 

CHKR4 

CHKR4+2 

PASTIM 
BRKFLG 

ipUVTftft-JjYTI.Ij! 

LINACT 

NXTLINr IPHYTAB* 
DONE 

NXTLINr R0 

R0,CURLIN(R4) 

20CR0) 

NXTLIN 

(R9),R0 

GETNXT 

ADDR, Rl 

PC, GETADR 

R1,DVASAV(R4) 

VECTOR, Rl 

PC, GETADR 

R1,VCTSAV(R4) 

LINACT 

LOOPCR4) 

RCVTOCR4) 

f20,R0 

MD 

PP 



LINACT 
1* 



(HAS THERE BEEN A POWERFAIL 
(CONTINUE IF NOT, 

'(FIRST ACTIVE LINE 

tlNIT STACK 

•CLEAR ALL EXIT FLAGS 



JCLR PASS TIME FLAG 
(CLR FLAG THAT SaYS WE'RE IN BREAK 
•POINTS TO NEXT LINE TO TEST 
J SHOW NO LINES ACTIVE 
16. > DONE ALL LINES? 
| BR IF SO 

;GET ADDR OF NEXT LINE 
}SAVE IT 

} CLEAR RETRY COUNT FOR THIS LINE 

;BUMP FOR NEXT TIME 

j GET PHYSICAL LINE BYTE 

(BR BACK IF BIT 7 NOT ON 

;SET UP TO CALC ADDR 

;GO CALC ADDR 

(SAVE DVA FOR THIS LINE 

|SET UP TO CALC VECTOR ADDR 

;GO CALC 

•SAVE IT 

;SHOW A LINE'S RUNNING 
(CLEAR ITERATION COUNT 
(CLR REC TIME OUT COUNT 
;MULTI DROP OR NOT? 
|BR ir IT IS 
jBR XT SOT TO P TO P 



•ANY LINES RUNNING? 
(BR IF NO 
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718 


•01002' 


330167 


003324 






JMP 


TIMCHK 


;IF YES GO CHECK FOR TIME OUT 


719 


001006* 


012731 


000212' 




IS: 


MOV 


IPHYTAB, Rl 


(MUST CHECK IF MAYBE ALL LINES DROPPED 


720 


091012' 


105721 






2$: 


TSTB 


(Rl) + 


(IS THIS LINE STILL SELECTED? 


721 


001014' 


100405 








BMI 


38 


(BR OUT IF YES 


722 


•01016' 


022701 


000232' 






CMP 


#PHYTAB+16.,R1 


(CHECKED ALL 16? 




SS1022* 


031 373 








BSE 


2$ 




724 


•91324' 


104403 


000000' 






ENDS, BEGIN 


( 


725 
726 


■31333' 


012767 


000001 


003742 


3$: 


MOV 


tl,PAsTIM 


;SHOW IT IS TIME FOR ENDpAS 


727 
















(FOR BREAK LOOP 


728 


001036* 


095767 


003734 






TST 


BRKFLG 


;ARE HE IN A BREAK LOOP? 


729 


001042* 


091002 








BNE 


4S 


(BR IF WE ARE 


733 


•01044' 


030167 


003376 






JMP 


EPASS 


(GO DO END OF PASS 


731 
732 


001050* 








is: 








733 


091350* 


194409 








EXITS 




(EXIT TO MONITOR. MODULE WAIT FOP INTERUPT. 


734 










(POINT 


TO POINT 






735 


•01052' 


012764 


000001 


004766' 


PP: 


HOV 


11, FDFLAG(R4) 


(SAY WERE FULL DUPLEX 


736 


001063' 


032700 


000100 






BIT 


1 100, P0 


(HALF OR FULL DUPLEX? 


737 


001064* 


001402 








BEQ 


IS 


(BR IF HALF 


738 


•91066' 


030167 


000512 






JMP 


PPFD 


(JMP TO FULL DUPLEX ROUTINE 


739 


•01072* 


005064 


004766' 




is: 


CLR 


FDFLAG(R4) 


(CORRECT FLAG CAUSE WERE NOT FD 


743 


•01076* 


032703 


000040 






BIT 


140, R0 


(SLAVE OR MASTER? 


741 


•01102* 


001141 








BNE 


PPHDM 


(BR IF MASTER 


742 
743 










t 

;point 


TO pOINTi 


t HALF DUPLEX, SLAVE 


744 


001104' 








PPHDS: 








745 


•31104' 


t»16464 


004644' 


004650' 




MOV 


AMSGBF(R4),RECADR(R4) (SET UP INPUT AREA 


746 


001112' 


016764 


000009G 


004654* 




HOV 


MSGSIZ,RECCNT(R4) J SET UP COUNT 


747 


031123' 


C62764 


000012 


004654' 




ADD 


<12,RECCNT(R4) 


(CORRECT FOR HEADER AND CRC 


748 


•01 126' 


016764 


J 77036 


004660* 




MOV 


TIMELN, RECTI M(R4) (HOW LONG TO WAIT 


749 


•91134' 


066764 


177030 


004660' 




ADD 


TIMELN,RECTIM(R4) > DOUBLE IT 


750 


•01142* 


034767 


000766 






JSR 


PC, REC 


(GO RECEIVE DATA 


751 


•31146' 


000462 








BR 


FERR 


(Br to error routine 


752 


001153' 


003401 






onepec: 


BR 


IS 


(MAKE THIS A NOPx240 TO 


753 


•01152' 


000432 








BR 


PPHDS2 


(DO ONE-WAY-IN (REC. ONLY) 


755 


•01162' 


016764 


000000G 


004732* 




MOV 


MSGSIZ,TXCNT1(R4) (GET MSG SIZE 


756 


•01179' 


062764 


000012 


004732* 




ADD 


I12,TXCNT1(R4) 


(CORRECT FOR HEADER AND CRC'S 


757 


•01176' 


012764 


000004 


034736* 




HOV 


I4,TXCNT2(R4) 


; SEND 4 FILLS AFTER MSG 


758 


001204' 


012764 


011152' 


004726' 




MOV 


|FILL,TXADR2(R4) 




759 


001212* 


004767 


002722 






JSR 


PCCTS 


(GO GET CLEAR TO SEND 


760 


•01216' 


016764 


176746 


004742* 




MOV 


TIMELN,TMTTIM(R4) (GIVE 'EM 1/2 MINUTE 


761 


001224* 


004767 


002176 






JSR 


PC,THT 


(GO TRANSMIT 


762 


•012 30' 


000423 








BR 


DERP 


(BR TO ERROR ROUTINE 


763 


001232' 


042774 


000004 


004634* 




BIC 


«4,»DVASAV(R4) 


•KILL REQ TO SEND 


764 


•01240* 


005264 


004712' 




PPHDS2 1 


INC 


L00P(R4) 


(COUNT AN ITERATION 


765 


•01244' 


026764 


176716 


004712* 




CMP 


LPCNT,LO0P(R4) 


(DONE ENOUGH I 


766 


•01252' 


093314 








BGT 


PPHDS 


(NO, GO DO ANOTHER TIME 


767 


•01254' 


005367 


003410 




LNDONE: 


DEC 


LINACT 




768 


001260' 


016403 


004634' 






MOV 


DVASAV(R4),R3 


(GET DEVICE ADDRESS 


769 


031264' 


042713 


177775 






BIC 


•177775, (R3) 


(KILL ALL BUT DTP 


773 


031270* 


03506 3 


000004 






CLR 


4(R3) 


(KILL TRANSMITTER TOO 


771 


001274' 


000167 


177364 






JMP 


GETNXT 


( YES DO NEXT LINE 



772 
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SEQ 0041 



774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
006 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 



001300' 
001306' 
001312' 
•01314' 
001316' 
•01322' 
00132b' 
•01334' 
001336' 
•01340' 
•01342' 
•01344' 
•01350' 
•01354' 
•01362' 
•01366' 
•01370' 
•01372' 
001374' 
•01400' 
•01404' 



042774 
012703 
000401 
005003 
016401 
105261 
126167 
002003 
005703 
001703 
000736 
142111 
005264 
104411 
005767 
001402 
005004 
000402 
012704 
005364 
000723 



000004 
177777 



004634* DEPR j 



004676' 

000020 

000020 



000200 
005002' 
011156' 
003414 



000002 
005002' 



f ERR : 
FERR1, 



It: 
2ft 



BIC 

MOV 

BR 

CLP 

NOV 

INCB 

CMPB 

BGE 

TST 

BEQ 

BR 

BTCe 

IWC 

HSGNf 

TST 

BEQ 

CLR 

BR 

HOV 

DEC 

BR 



»4,»DVASAV(R4) 

•-1, R3 

FERR1 

R3 

CURt,I«(R4),R! 
20(R1 ) 

20(R1),ERRLVL 

DROP 
R3 

ONEREC 
PPHDS2 

92ft, "" ' 

DR0PR4(P4) 
i ADROp, BEGIN 
DR0PR4 
1* 
R4 
28 

I2.R4 

DR0PR4(R4) 
LNDONE 



{KILL REQ TO SEND 

,SET FLAG FOR WHICH RETURN 

;SET FLAG FOR WHICH RETURN 
j GET LINE I ADDR 
{COURT »N ERROR 
•TOO MANY ERRORS? 
(BR IF YES 

(DO A TMT OP DO A REC? 
; BR IF TMT 
jGO TRY AGAIN 

•Mjop -«e line from test 

,SEE NOTE 1 IN FRONT OF LISTING 
(ASCII MESSAGE CALL WITH COMMON HEADER 











>POINt 


TO POINT 


HALF DUPLEX MASTER 




•01406* 








J 

PPHDMj 








001406' 


012764 


000000G 


004722' 




MOV 


f KSGHED, TXaDRI (R4) 


; GET MSG ADDRESS 


•01414' 


016764 


000000G 


004732* 




HOV 


MSCSIZ,TXCnT1CR4) 


(GET MSG SIZE 


■01422' 


062764 


000012 


0047 32' 




ADD 


I12»TXCNTI(R4) 


;CORRECT FOR CRC AND HEADER 


•01430' 


012764 


000004 


004736* 




MOV 


I4,TXCNT2(R4) 


( SEND 4 FILLS AFTER MSG 


001436' 


012764 


011152' 


004726' 




MOV 


IFILL,TXADR2(R4) 




001444* 


004767 


002470 






JSP 


PC.CTS 


;G0 GET CLEAR TO SEND 


•01450' 


016764 


176514 


004742' 




MOV 


TIHELN,TMTTIM(R4) 


iGIVE "EM 1/2 MINUTE 


001456' 


004767 


•01744 






JSR 


PC, THT 


;G0 TRANSMIT 


001462* 


000434 








BP 


GERR 


; ERROR RETURN 


001464* 


042774 


000004 


004634' 




BIC 


I4,»D?ASAV(P4) 


;KILL REQ TO SEND 


001472* 


000401 






ONETMTI 


BR 


If 


; MAKE THIS A NOP*240 FOR ONE 
















{WAY OUT, TMT ONLY. OTHER SIDE 
















;0r LINE MUST DO ONE WAY IN. 


001474* 


0004 1 7 








BR 


PPHDMJ 


;USED FOR ONE WAY OUT ONLY 


001476' 


016464 


004644* 


004650* 


it: 


HOV 


AMSGBF( R4 ) > REC ADR ( R4 ) 


;SET UP INPUT AREA 


001504* 


C16764 


000000G 


004654' 




MOV 


MSGSIZ,PECCNT(R4) 


;SET UP COUNT 


001512' 


062764 


000012 


004654' 




ADD 


»12»RECCNT(R4) 


(CORRECT FOR HEADER AND CRC 


•01520* 


016764 


176444 


004660* 




HOV 


TIHELN, RECTIH( R4 ) 


;GIVE EH 1/2 MINUTES 


001526' 


004767 


000402 






JSR 


PC, REC 


;G0 RECEIVE 


001532' 


000413 








BR 


HERR 


; ERROR RETURN 


001534' 


005264 


004712' 




PPHDM2 j 


INC 


L00PCR4) 


{COUNT AN ITERATION 


001540* 


026764 


176422 


0<M712* 




CMP 


LPCHT,LO0P(R4) 


;DONE ENOUGH? 


001546' 


003317 








BGT 


PPHDM 


; BR IF NOT 


•01550* 


000167 


177500 




» 


JMF 


LNDONE 




001554' 


042774 


000004 


004634' 


GEPRI 


BIC 


#4,8DVASAV(R4) 


(KILL REQ TO SEND 


001562' 


016401 


004676' 




HERR: 


MOV 


CURLIN(R4),P1 


{ GET LINE t ADDRESS 


•01566* 


105261 


000020 






INCB 


20<R1) 


;COUNT An ERROR 


001572* 


126167 


000020 


176372 




CMPB 


20(R1)>CRRLVL 


{TOO MANY ERRORS? 
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830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
B74 
875 
876 
877 
878 
879 

sea 

881 
882 
883 
884 

885 



•01600* 002261 
001602' B00754 



BGE 
BR 



DROP 
PPHDM? 



;BR IF YES 
;G0 TRY AGAIN 



POINT -TO-POINT FULL DUPLEX 



001604' 


032700 


000040 




PPFDJ 


BIT 


140, R0 


; MASTER OR SLAVE? 


001610' 


001003 








BNE 


It 


; BR IF MASTER 


001612' 


012764 


177777 


004766* 




MOV 


1177777. FDFLAGCR4) (SHOW ITS SLAVE 


001620' 


004767 


002314 




If 1 


JSR 


PCCTS 


;G0 GET CLEAR TO SEND 


001624' 


016464 


004644' 


004650' 


PPFDi : 


MOV 


AMSGBF(R4),RECADR(R4) ( GET INPUT AREA 


001632' 


016764 


000000G 


004654' 




MOV 


MSGSIZ,RECCNT(R4) (SET UP COUNT 


001640' 


062764 


000012 


004654' 




ADD 


I12.RECCNT(R4) 


{CORRECT FOR CRC AND HEADER 


001646' 


004767 


000262 






JSR 


PC,Ri.C 


;G0 GET RECEIVING STARTED 


001652* 


000500 








BR 


JERP 


{REC ERROR RETURN 


001654* 


000441 








BP 


FDRCDN 


{REC DONE 


001656* 


012764 


000000G 


004722' 




MOV 


IMSGHED, TXADRI (R4) {FULL DUPLEX RETURN FROM PLC 
















: GET THT ADDR 


001664' 


016764 


000000G 


004732' 




MOV 


MSGSIZ,TXCNT1(R4) ;GET THT COUNT 


001672' 


062764 


000012 


004732' 




ADD 


I12,TXCNT1CP4) 


{CORRECT FOR HEADER AND CRC 


001700' 


01 2764 


000004 


004736' 




MOV 


I4,TXCNT2CR4) 


; SEND 4 FILLS AFTER MSG 


001706' 


012764 


011152' 


004726' 




MOV 


I FILL » TXADR2 ( R4) 




001714' 


004767 


001506 






JSR 


PC, TMT 


{GO TMT 


301720' 


000455 








BR 


JERR 


;THT ERROR RETURN 


001722' 


000412 








BR 


It 


;GOOD TMT DONE RETURN 


001724' 


012700 


002122' 






MOV 


IFDTO,R0 


jFULL DUP RETURN, SET UP FOR TIME OUT 


•01730' 


016701 


176234 






HOV 


TIHELN, Rl 


(GIVE EM 1 MINUTE 


•01734' 


066701 


176230 






ADD 


TIHELN, Rl 




•01740' 


012702 


000000 






HOV 


10, R2 


(SHOW ITS A REC WAIT 


•01744' 


000167 


002306 






JMP 


TIHKEP 


;G0 WAIT 


•01750' 


012764 


000001 


004752' 


t 

1$: 


HOV 


•1,TMTD0N(R4) 


{SHOW TMT IS DONE 


001756' 


S lf$440«> 








EXITt 




}EXIT TO MONITOR. MODULE WAIT FOR INTERUPT 


001760' 


005764 


004752' 




FDRCDN 1 


TST 


TMTD0NCR4) 


jIS TMT DONE YET? 


•01764* 


001020 








BNE 


48 


(BR IF YES 


•01766* 


005264 


005026' 






INC 


FDBKR4 ( P4 ) 


( SEE NOTE 1 IN FRONT OF LISTING 


001772* 


104407 


000000' 






BREAKt 


BEGIN 


; TEMPORARY RETURN TO MONITOR.... 


•01776' 


1 04407 


000000* 






BREAKS 


BEGIN 


-THEN CONTINUE AT NEXT INSTRUCTION. 


•02002' 


005767 


003020 






TST 


FDBKR4 




002006' 


001402 








BEQ 


2t 




002010' 


005004 








CLP 


R4 




•02012* 


000402 








BR 


3t 




002014' 


012704 


000002 




2$: 


HOV 


12, R4 




002020' 


005364 


005026* 




3s: 


DEC 


FDBXP4CR4) 




002024' 


000755 








BR 


FDRCDN 


[BP AND WAIT SOME MORE 


•02026' 


005264 


004712* 




4$ : 


INC 


L00P(R4) 


{COUNT AN ITERATION 


002032' 


026764 


176130 


004712' 




CMP 


LPCNT,L00P(R4) 


{DONE ENOUGH 


002040' 


3*3271 








BGT 


PPFDI 


{NO, GO DO MORE 


•02042' 


042774 


000004 


0H4634' 




BIC 


•4,9DVASAV(P4) 


(KILL REU TO SEND 


002050' 


9051167 


177200 






JMP 


LNDONF 












;FD 1»T 


ERROR 






»«92054* 


S»l 276 4 


0«e«0i 


004752' 


jfpr: 


HOV 


t j,T*TD0N{R4) 


{DON'T BOTHER W ft I TING FOp TMT 
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886 


•02062* 


012764 


177777 


00467 2 * 




MOV 


987 


•02070* 


01 6401 


004676 * 






MOV 


888 


•02074* 


1 05261 


000020 






INCB 


899 


•02100* 


1 26167 


000020 


1 76064 




CMPB 


S 9 iJ 


•02106* 


^02724 








8LT 


891 


•02110* 


042774 


000004 


004634* 




BIC 


892 


•02116' 


000167 


177222 






JMP 


893 










s 




994 














895 










; FULL 


DUPLEX 


896 


•02122' 


012764 


002054* 


004716' 


FDTOj 


NOV 


897 


•02130* 


000167 


001124 






JMP 


398 















1177777, ABORT CR4) ; TELL INT ROUTINES TO GIVE UP 

CURLIN{R4),R1 ; GET CURRENT LINE INM 
{COUNT ANOTHER ERROR 
jTOO MANY ERRORS? 
jSC GO TRY AGAIN 
;KILL REQ TO SEND 
;GIVC UP ON THIS LINE 



20(R1) 
20(R1),ERRLVL 
FDRCOB 

I4,»DVASAV(R4) 
DROP 



IJERR.RECRTNCR4) :SET UP CORRECT RETURN 

ROTO JGO REPORT REC TIME OUT 



NUAA DEC/Xll SXSTfcM EXERCISER MODULE 
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899 








900 








901 








902 








903 








904 








905 








906 


002134' 


012664 


004716' 


907 


•32140* 


016401 


004640* 


909 


002144* 


012711 


002244' 


909 


•02150* 


060421 




910 


•02152' 


116711 


175634 


911 


•02156' 


005064 


004672' 


912 


•02162' 


012764 


000002 


91 3 


•02170' 


P05764 


004766' 


914 


•02174' 


001413 




915 


•02176' 


052774 


000120 


916 


•02204' 


016402 


004716* 


917 


902210* 


062702 


000004 


918 


002214* 


010207 




919 


002216* 


012700 


003260' 


920 


002222* 


016401 


004660* 


921 


•02226* 


012702 


000000 


922 


002232' 


052774 


000120 


923 


002240' 


000167 


002012 


924 








925 








926 








927 


•02244' 


000405 




928 


002246' 


010446 




929 


•02250' 


010346 




93<> 


002252' 


012704 


000002 


931 


P02256' 


00040 3 




932 


•02260* 


010446 




933 


002262' 


010346 




934 


•02264*^ 


005004 












936 


•02272* 


005764 


004672' 


937 


•02276' 


001403 




938 


P02300* 


•42713 


000160 


939 


•02304* 


000460 




940 


002306* 


011364 


004706' 


941 


•02312' 


016346 


000002 


942 


•02316' 


005764 


004664* 


943 


•02322' 


001421 




944 


•02324' 


122716 


000220 


945 


•02330' 


001406 




946 


•02332* 


126716 


175636 


947 


•02336' 


"91440 




948 


•02340* 


042713 


000020 


949 


•02344' 


000435 




950 


•02346' 


005064 


004664' 


951 


•02352* 


00576 4 


004766' 


95 2 


•02356* 


100003 




953 


•02360* 


012764 


000t)lP 


954 


902366* 


005767 


175572 
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SUBROUTINE TO RECEIVE DATA 
CALLED WITH A JSR PC, REC 

AFTER SETTING LOCATIONS RECADRCR4 ) , RECCNK R4 ) , RECTIM CP4 ) , VCTSA V ( R4 ) , 
AND DVASAVCR4). RETURNS ON ERROR OR RETURNS 
2 BYTES PAST CALL IF NO ERROR 

1 

REC: 



MOV 


CR6)+,RECRTN(R4) 


;SAVE RTN ADDR 


MOV 


VCTSAVCR4), Rl 


} GET VECTOR ADR 


MOV 


•REClNT.(Rl) 


;MOVE IN INT. ROUTINE ADR 


ADD 


R4,(R1)+ 


;CORRECT FOR WHICH LINE 


MOVB 


BR1,(R1) 


{MOV IN PRIORITY LEVEL 


CLR 


AB0RTCR4) 


{CLEAR ABORT FLAG 


MOV 


#2,SYNCNTCR4) 


{MUST GET 2 SYN CHARACTERS 


TST 


FDFLAGCR4) 


J FULL DUPLEX? 


BEQ 


It 


{ BR IF NOT 


BIS 


I120»»DVASAV(R4) 


;KICK OFF REC 


BOV 


RECRTN(R4),R2 


j GET RETURN ADDRESS 


ADD 


14, R2 


jFD RETURN 


MOV 


R2,R7 


; RETURN 


MOV 


IRDTO,R0 


{RETURN ADDR 


MOV 


RECTIMCR4),R1 


;HOW LONG TO WAIT 


MOV 


*0,R2 


{SHOWS ITS A REC WAIT 


BIS 


I120,«DVASAV(R4) 


{ ENABLE INT AND READ 


JMP 


TIMKEP 


{EXIT TO TIMKEP AND WAIT 


ER INTERRUPT ROUTINE 




Br 


It 




MOV 


R4,-(R6) 


{SAVE R4 


MOV 


R3,-(R6) 


{ SAVE R3 


MOV 


12, R4 


{SET UP FOR SECOND LINE 


BR 


2t 




MOV 


R4,-(R6) 


{SAVE R4 


MOV 


R3,-tR6) 


{SAVE R3 


CLR 


R4 


{ SET UP FOR FIRST LINE 


uny 




.err tur npvrrp »nnor=e 


TST 


AB0RTCR4) 


{GIVE UP? 


BEO 


3t 


{BR IF NO 


BIC 


1160, (R3) 


{DISABLE REC INT.S 


BR 


7t 


{AND LEAVE 


MOV 


(R3)»ERRWD(R4) 


{SAVE STATUS 


MOV 


2(Rj),-(R6) 


; SAVE CHARACTER AND ERR BI 


TST 


SYNCNTC R4 ) 


{ARE WE IN SYNC 


BEO 


5t 


;BR IF YES 


CMPB 


1220, (R6) 


{IS IT A DLE? 


BEO 


4$ 


; BR IF YES 


CMPB 


SYNC, (R6) 


{IS IT A SYNC CHAR? 


BEQ 


6t 


{YES, IGNORE IT 


BIC 


120, (P3) 


{ RfcSYNC IF NOT 


BR 


6t 


{LEAVE 


CLR 


SYNCNT(R4) 


{SHOW WE'RE IN SYN 


TST 


FDFLAGCR4) 


;FD SLAVE? 


BPL 


5t 


{BR IF NOT 


MOV 


I10,TSYNCT(R4) 


{ LET TMT GO IF FULL DUP 


fST 


REPORT 


{ REPORT ERR NOW OR LATER? 



NUAA DEC/X11 SYSTEM EXERCISER MODULE MACY1 1 27(732) 20-MAY-76 1 2 1 2 B PAGE 21 SEQ 0045 

NUAA.Ptl 



955 




001 013 








BNF 


51! 


;BR IF LATER 


956 


•02374" 




004706 






TSTB 


ERRWDCR4) 


;IS REC DONE BIT SET? 


957 


•02400 


1 00040 








BPL 


RERR 


; BR ir NOT 


958 


•02402 * 


005716 








TST 


(R6) 


;DATA ERROR? 


959 




1 00006 








BPL 


51$ 


{BR IF NO DATA ERR 


? 




ai??i!i 


004706 






MOV 


CR6)*, ERRWDCR4) 


; SAVE INFORMATION 


961 


•924 12" 


nitwit 1 


1 00000 


004 706 




BIC 


1100000. ERRWD(R4} J USE BIT 15 FOR FLAG TO RERR 


962 


•02 420 * 












RERR+2 








11 1674 


004650 






un 


(R6) > •RECADRt R4 ) 


{STORE THE CHAR IN BUFFER 


** 


•02426 * 


005264 








rwr 


RECADR(R4) 


{FOR NEXT TIME 








aa*&«A* 
004634 






nrr 


RECCNTCR4) 


, COUNT IT 


Of.f. 


•02436" 


003406 








bi r 


8» 


{BR IF DONE 




■02 443* 










TST 


(R6)* 


;FIX STACK 


oi. a 






000120 








1120, (R3) 


, READ ANOTHEP 


QfcQ 










7 1 1 


MOV 


(R6)+,R3 


j RESTORE R3 


970 


•02450" 


012604 








MOV 


(R6)+,R4 


; RESTORE R4 


971 


•02452" 


000002 








RTI 




f RETURN 


972 


•02454* 


016467 


004702* 


000014 


8«: 


MOV 


RECDCR4) ,PPIR0*2 


973 


002462' 


005726 








TSt 


CR6) + 


{FIX STACK 

.nrslfi! F DP/* TUT C 


974 


002464" 


042713 


000160 






BIC 


1160, (R3) 


975 


•02470* 


012603 








MOV 


(R6)+,R3 


{RESTORE REGS 






012604 








MOV 


(R6)+,R4 




977 


•02474 








RPIRQl 








97 8 
oea 


• 




002704 * 


0(1000(7 




PIRQt, 


RECDN, BEGIN 


; RTI AND QUEUE UP TO CONTINUE AT RECDN 


OO 1 

982 


002502" 


005726 






PERR 1 


TST 


(R6) + 




983 


002504" 


012603 








MOV 


( R6 ) ♦» R3 


; RESTORE REG 


984 


•02506' 


•42774 


000160 


004634' 




BIC 


• 1 60# ODVASA V (R4 ) 


J KL3L I lnC> HE.(, blibp 


985 


•02514' 


012767 


002542' 


000014 




MOV 


128* 11+2 


. ctT I'D Tfl DTOO Trt 
I OCT Ur lw ri rw I v 


986 


002522' 


060467 


000010 






ADD 


R4, 18*2 


; THE. RXvHT PL*-, t 


967 


•02526 ' 


060467 










R4.H + 2 




988 


•02532* 


01 2604 








MOV 


(R6)+»R4 


j RESTORE REG 


Ann 

990 
991 


002534 








111 








802534 


000004 


002542 


000000 




PIRQ8 # 


2lrBEGIN 


; RTI AND QUEUE Ur TO CONTINUE AT 2$ 


992 




005004 






2t • 


CLR 


P4 


;SHOW ITS LINE 


994 




000402 










3t 


» 


995 


« 


01 2704 


000002 






MOV 


• 2»R4 


;SHOW ITS LINE 1 


996 


002552 


016467 


004634 * 


1 75270 


3 1 S 


JJJ 


D VASAV ( R4 ) , CSRA 


. erf flD Wf%D FDD Ckl.1. 
Jottt Ur r UK bKri t"uu 




00256** 


016467 


004706* 


1 75264 






ERRWD ( R4 ) 9 ACSR 


; SET UP FOR ERR CALL 


998 


002566 


?! 


004676 # 






MOV 


CURLIN(R4),R1 


;GET ADDR OF CUR LINE BYTE 


999 


00257 2 * 


1111 02 








MOVB 


(Rl)#R2 


;GET VALUE OF LINE 1 


1 000 






177760 






BIC 


1177760. R2 


; THROW OTHER BITS AWAY 


1 00 1 


002600 




004 706 








ERRHD(R4) 


jlS IT A DATA OR LINE CHANGE ERR 


1002 


002604 


1 000 1 








BPL 


DATAER 


;BR IF DATA ERR 








175242 






NOV 


R2, ASTAT 


;SET UP ERR INDICATION 


1 004 


002612* 


062767 


002000 


175734 




ADD 


f 002000. ASTAT 


;SHOW WHICH TYPE 


1005 


















1006 


902620" 


104404 


000000' 






ERROR! 


(BEGIN 


I DATA SET CHANGE 


1007 


















1008 


002624' 


104400 








EXITI 




;EXIT TO MONITOR * NODULE WAIT FOR INTERUPT, 


1009 


















1010 



















101 1 

1012 
1013 
101 4 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1821 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
106 ) 
1064 
1065 
"066 



:/Xll SYSTEM EXERCISER MODULE 


MAC Yl 1 


27(732) 


20-MAY-76 


121 


128 PAGE 22 




002626* 


010267 


175222 


DATAER 1 


MOV 


R2, ASTAT 




•SET UP ERR 


LINE • 


002632' 


1 16467 


004707' 175215 




MOVB 


ERRNDol (R4) 


, ASTAT* I J GET ERR 


TYPE 


002640' 


042767 


107400 175206 




BIC 


#107400. ASTAT 


j LEAVE ONLY 


ERR BITS 


002646* 


005264 


005006' 




INC 


DTERR4CR4) 




•SEE NOTE 1 


IN FRONT OF LISTING 


002652* 


104404 


000000' 




ERRORS, 


r BEGIN 




-DATA ERR 




002656* 


005767 


002124 




TST 


DTERR4 








•02662' 


001402 






BEO 


It 








002664* 


005004 






CLR 


R4 








»0266o' 


000402 






BR 


28 








•02670' 


012704 


000002 


is: 


MOV 


12, R4 








002674' 


005364 


005006' 


2$: 


DEC 


DTERR4CR4) 









ASTAT IN ERROR MESSAGE 
REC DATA PARITY ERROR 
;0200XX « FRAMING ERROR 
;0400XX ■ OVERRUN 



; CHECK 
-0100XX 









•XX * 


PHYSICAL 


LINE 1 




•02700' 


000167 


000230 


J 


JMP 


RRET 


;G0 DO AN ERROR EXIT 


002704' 


005004 




hECONt 


CLR 


R4 


•SHOW WE'RE LINE 


002706" 


000402 






BR 


It 




•02713' 


012704 


000002 




MOV 


12, R4 


■SHOH HE 'RE LINE 1 


•02711' 


042774 


177771 


004634' It: 


BIC 


1177771, »DVASAV(R4) -SHUT UP DEVICE 


002722' 


005064 


004772* 




CLR 


RCVT0(R4) 


; RESET TIME OUT RETRY COUNT 


•02726' 


0015064 


•05072" 




CLR 


RETTABCP4) 


{KILL IMPENDING TIMEOUT 


092732' 


005767 


000000G 


3tl 


TST 


CKMSG 


jlS CHECK MSG ROUTINE BUSY? 


0027 36' 


081420 






BEQ 


6t 


•BR IF NOT 


002740' 


005264 


005032' 




INC 


CHKR4CR4) 


jSEE NOTE I IN FRONT OF LISTING 


•02744* 


104407 


000000' 




BREAK! i 


i BEGIN 


{TEMPORARY RETURN TO MONITOR,.,. 


002750' 


104407 


000000' 




BREAK', 


, BEGIN 


,THEN CONTINUE AT NEXT INSTRUCTION. 


002754' 


005767 


002052 




TST 


CHKR4 




002760' 


001402 






BEO 


4t 




002762' 


005004 






CLR 


R4 




002764' 


000402 






BR 


5t 




•02766' 


012704 


000002 


4SI 


MOV 


12, R4 




002772* 


005364 


005032' 


5$: 


DEC 


CHKP4CR4) 




•02776' 


000755 






BR 


3t 




M300<i' 


016402 


004644' 


61! 


MOV 


AMSGBFC R4 ) , R2 


{ GET REC DATA 


003004* 


026762 


177776G 


000006 


CMP 


MSG-2.6(R2) 


•IS HEADER CRC OK? 


003012* 


001407 






BEO 


7t 


; BR IF OK 


003014' 


005767 


175144 




TST 


REPORT 


; REPORT ERR NO*? 


003020' 


001055 






BNE 


X5 


;BR IF LATER 


003022* 


012767 


003000 


175024 


MOV 


(003000, ASTAT 


; SHOW ERR TYPE 


•03030' 


000466 






BP 


PECERP 




•03032* 






7$: 








003032' 


1 17467 


004676* 


0001*40 


MOVB 


8CUPLIN(R4),9t 


; GET LINE • 


•03040' 


042767 


177760 


000032 


BIC 


•177760, 9S 


; LEAVE ONLY LINE BITS 


003046* 


B05767 


175112 




TST 


REPORT 


{REPORT BAD DATA? 


•03052' 


001403 






BEQ 


8! 


,-BH IF YES 


003054* 


052767 


100000 


000H16 


BIS 


1100000,91 


; SET FLAG TO CKMSG 


•83062" 


062702 


000* !(» 


US- 


ADD 


t 10, R2 


.(•.FT ADDR OF "SG 



NUAA DEC/X11 SYSTEM EXERCISER MODULE MACY11 27(732) 20-MAY-76 12:28 PACE 23 
SUA*. PI! 



SEQ- 0047 



1067 
1066 
1069 
1070 
1071 
ie72 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1105 

i lie 
mi 

1112 
1113 
1114 
1115 
1116 
1117 
1119 
1119 
1120 
1121 
1122 



003066 ' 


01026 1 


000010 






MOV 


R2,9S+2 




•03072* 


•04567 


000002G 






JSR 


P5,CKMSG*2 


jGO CHECK MSG 


003076' 


000000* 








BEGIN 






•03100' 


000000 






9S: 









903102' 


900903 








3 






•03104* 


000417 








BR 


X4 


; BAD RETURN 


•03106' 


066702 


00000(10 






AOD 


MSGSIZ.R2 


•POINT IT TO MSG CRC, DATA WAS OK 


003112* 


126722 


000000G 






CMPB 


CRCMSG. CR2) + 


|CHECK 1ST CRC BYTE 


S031 16* 


S01025 








SHE 


CER 




•03120* 


1 26722 


00000 1G 






CMPB 


CRCH3Gtl,CR2)+ 


jCHECK SECOND 


033124' 


001022 








BNE 


CER 




•03126' 


062764 


000002 


004716* 




ADD 


I2,RECRTN(R4) 


;GOOD RETURN 


SS35 34* 


S05064 


005072 * 




SRETs 


CIjR 


RET?ftB(R4) 


;KILL IMPENDING TIMEOUTS 


•03140' 


•00174 


004716* 






JMP 


•RECRTNCR4) 


;AND GO BACK 


•03144* 


995767 


175014 




; 

X4: 


TST 


REPORT 


;REPORT EBR NOW OR LATER? 


•03150' 


001001 








BNE 


XS 


jBP IF LATER 


•03152" 


000770 








BR 


RRET 


{OTHERWISE RETURN 


•03154' 


1 1 7402 


004676 ' 




> 

X5l 


MOVB 


PCUFLIN(R4),R2 


; GET CURRENT LINE 1 


•03160' 


042702 


177760 






BIC 


1177760, R2 




003164" 


1 05262 


000252 ' 






INCB 


EC0UNT(R2) 


;Count an error for that line. 


•33170" 


000761 






« 


BR 


RRET 


;AND RETURN 


•33172 


005767 


174766 




} 

CEr: 


TST 


REPORT 


; REPORT NOW OR LATER? 


•03176' 


001 366 








BNE 


X5 


; BR IF LATER 


903200' 


01 2767 


004000 


174646 




NOV 


1004000, ASTAT 


; indicate error type 


003206' 


1 1 7402 


004676' 




RECERRt 


MOVB 


•CURLIN(P4).R2 


; GENERATE LINE t 


•03212' 


•42702 


177760 






BIC 


1177760, R2 


; 


043216' 


•50267 


174632 






BIS 


R2, ASTAT 


•ADD IN LINE « 


•03222* 


005264 


005012' 






INC 


CRCR4(R4) 


jSEE NOTE 1 IN FRONT OF LISTING 












1 »»•»•»»#»#•«»»»#*»••»•»•*#»••••*»»»•»***•»•*«****»***»•*»»**»•* 


•03226* 


104404 


000000' 






ERRORS 


BEGIN 


jCRC ERROR 












«»»*•»»•##•»#••»•»#•»••»»»•••»»»»•»»•»»»»»*♦♦*»•*****«****»»*»»* 


•03232' 


005767 


001554 






TST 


CRCR4 




•0323b* 


001402 








BEG 


If 




003240' 


005004 








CLR 


R4 




•03242" 


•00402 








BR 


2t 




003244' 


012704 


000002 




1SI 


MOV 


12, R4 




•03250' 


005364 


005012' 




2$: 


DEC 


CRCB4(R4) 




•0 3254' 


Bdo167 


177654 










i SAD RETURN 










f READ TIME OUT 


ROUTINE 




•03260' 


01 2764 


177777 


0S4672* 


RDTOl 


MOV 


1 177777 , ABORT' R4) ; TELL INT ROUTINES TO GIVE UP 


003266 










INC 


RCVT0{R4) 


;COUNT ANOTHER RETRY 


003272' 


026467 


004772* 


J74672 




CMP 


RCVT0<R4),ERRLVL ; ENOUGH TRYS? 


•03300' 


001043 








BNE 


4t 


;BR IF NO 


•03302' 


017467 


004b34' 


174542 




MOV 


•DVASAV(R4),ACSR;GET REC STATUS 


•033114* 


042774 


177771 


004634' 




BIC 


♦ 177771, »0VA8AV(R4) j KILL ALL BUT DTP 


•03316" 


016467 


004634* 


174524 




NOV 


DVASAV(R4).C8RA 


j PUT ADDR IN FOR ERR CALL 


•03324* 


016401 


004676' 






NOV 


CURLIN(R4),R1 


; GET ADDR OF CUR LINE BYTE 


•33330' 


111102 








MOVB 


(R1),R2 


;GET VALUE OF PHY LINE t 


•03332* 


042702 


177760 






BIC 


1177760, R2 


; THROW OTHER BITS AWAY 



NUAA DEC/X11 SYSTEM EXERCISER MODULE 
NUAA . PI 1 



MACY1 1 27(732) 20-MAY-76 12:28 PAGE 24 



1123 
1124 
1125 
1126 
1 127 
! ! 28 
1129 
1 1 30 
1131 
1132 
1133 
1134 
1135 
1136 
! 1 37 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
L 1 55 
1156 
1157 
1158 

1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1166 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
117* 



043336' 
033342' 
•83346' 



062702 
010267 
005264 



001000 
174506 
005016' 



003352' 104404 000000' 



903356' 
•03362' 
•03364' 
90336b' 
•03370' 
003374' 
•03400' 
003404' 

003410' 
•03414* 

003420' 
003424' 



005767 
901402 
005004 
000402 
012704 
005364 
005064 
000174 

016401 
105361 

005 364 
•00767 



003426' 
•03432* 
•03436' 
•03442' 
•03446* 
003452* 
•03454* 

•03464' 

•93472' 
•33476' 
•03502* 
•03504' 
•03506' 
003514' 
•03522* 
•03530' 
•03534* 
•03540' 



003542' 
•03546' 
•03552' 
003556' 
"♦03564' 
»03572' 



B12664 
005064 
016401 
062701 
012711 
060421 
116711 
agcaM 
012764 
016403 
005764 
001417 
1 00003 
012764 
012763 
1 16763 
016402 
062702 
010207 



•12700 
916401 
012702 
012763 
116763 
000167 



000002 
005016' 
004772* 
004716' 

004676' 
000020 



ADD 11000, R2 ; INDICATE REC TIMEOUT ERR 

MOV R2,AST*T ;SET UP FOR ER CALL 

INC RCT0R4CP4) ;SEE NOTE 1 IN FRONT OF LISTING 

; •••»•••»••••••••••••••••••••••••••*•••••••*••••••••••••••••••*• 

ERRORS , BEGIN ;REC TIMED OUT 

• •••••••••••••••••••••••••••»*•••••••»•*••••••»*•••••••••••*••*• 



1$: 

28! 



3$: 
4$: 



TST 

BEO 

CLR 

BR 

MOV 

DEC 

CLR 

JMP 

MOV 
DECB 



RCT0R4 

II 

R4 

2S 

12, R4 

RCT0R4(P4) 

RCVT0CR4) 

»RECRTN(R4) 

CURLIN(R4),P1 
20CR1) 

L0OP(R4) 
39 



j RESET RETRY COUNT 
; ERROR PTN 

{GET ADDR OF CUR LINE 

;DEC ERROR COUNT TO CORRECT FOR 

;INSUING INC 

;CORRECT FOR LATER CALLING THIS A GOOD RUN 
; RETURN 



004746' 

004752* 

004640* 

000004 

003576' 

174332 
394572 • 
000010 
004634* 
004766' 



177777 004756' 

000120 0*0004 

174446 000006 
004746' 
000004 



004022* 
004742* 
000004 

000120 000034 
174404 0PI0H01 
000460 



; SUBROUTINE TO TRANSMIT DATA 
; CALLED WITH A JSR PC,T*T 

; AFTER SETTING LOCATIONS TXADRKR1), TXADR2 ( R4 ) , TXCNT1 ( R4 ) , TXCNT2 ( R4 ) , TMTIMCP4), 
;VCTSAV(R4), DVASAVCR4), SUBROUTINE CTS MUST BE CALLED FIRST. 
; RETURNS ON ERROR, RETURNS 2 BYTES PAST NORMAL RETURN 
;IF NO ERROR 

TMT: 



MOV 


(SP)+,TMTRET(R4) JSAVE PTN ADDRESS 




CLR 


TMTD0IKR4) 


f INITIALIZE FLAG 




MOV 


VCTSAV(R4),R1 


;GET REC VECTOR ADDRESS 




ADD 


• 4, PI 


; MAKE IT TMT VECTOR 




MOV 


ITMTINT, (Rl ) 


(MOVE IN INT ROUTINE ADDRESS 




ADD 


R4, (Rl)+ 


;CORRECT FOR WHICH LINE 




MOVB 


BR1,(R1) 


;MOV IN PRIORITY LEVEL 




CLR 


16flDT/D»l 


• rt.F»P TTMF OUT ABORT VI.IC. 




MOV 


•10,TSYNCT(R4) 


;SENO TEN SYN CHARACTERS 




MOV 


DVASAV(R4),R3 


; GET DEVICE ADDRESS 




TST 


FDFLAG(P4) 


; ARE WE FULL DUPLEX? 




BEQ 


2S 


; BR IF NOT, ELSE 




BPL 


IS 


;5KIP IF MASTER 




MOV 


•177777, TSYNCT 


(R4) ; MAKE TMT WAIT FOR A 


PEC 


MOV 


1120, 4(R3) 


;SET TMT INT ENABLE 




MOVB 


SYNC,6(R3) 


; SEND A FILL CHAR 




MOV 


TMTRET(R4) ,R2 


; GET BAD RET ADDR 




ADD 


14, R2 


; MAKE IT THE FULL DUPLEX RETURN 


MOV 


R2,R7 


} AND RETURN 




MOV 


ITXTO.R0 


; TIME OUT RETURN ADDR 




MOV 


TMTTIM(R4),R1 


;HOW LONG TO WAIT 




MOV 


M,R2 


;SHOW ITS TRANSMITTER 




MOV' 


§120, 4(P3) 


;SET TMT INT ENABLE AND SEND 


BIT 


wnvB 


SYNC,6(R3) 


; SEND A FILL CHAP 




JHP 


TIMKEP 


;EXIT TO TIHKEP AND WAIT 





NUAA DEC/X11 SYSTEM EXERCISER MODULE MAC Y 1 1 27(732) 20-MAY-76 
NUM. PI I 



1 2 I 2 S PAGE 25 



SEC 0049 



1 1 79 
1 180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1 191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
120S 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1234 
1231 
1232 
1233 
1234 



>TMT INTERRUPT ROUTINE 



»t»3576* 


000405 






TMTINT1 


BR 








903600' 


010446 










OA 




"SAVE H4 


003602* 


•10146 








MOV 






;SAVE R3 


003604 ' 


01 2704 


000002 








v:'"; 




•SET TO LINE 1 


00361(1' 


000403 








BR 


I 

21 






(■93612' 


010446 






1 t t 


MOV 






SAVE R4 


00361 4* 


010346 










R3# "(SP) 




•SAVE R3 


003616' 


005004 








rf b 






jSET TO LINE 


•03620' 


005764 


004672 ' 




2| | 


1ST 


AB0RT(R4) 




;GIVE UP? 


•03624* 


100417 








BMI 


TICXXT 




;BP ir YES 


•03626" 


016403 


004634* 






MOV 


nuielvf Dit 


R3 


f GET DVA 


•03632' 


005764 


004732" 








TALI9T1 I K4 ) 




; FIRST BUFFER TMT'LD? 


•03636' 


001015 








BNE 






jBR IF NOT 


003640* 


005764 


004736' 






TST 






•SECOND BUFFER THT'ED? 


•03644* 


00 1 4 3 4 








BEQ 






j BR IF YES 


•03646* 


1 1 7463 


004726" 


000006 




MOVB 




r 6(R3) iSENP NEXT BYTE 


•03654* 


005264 


004726* 






INC 


TVinD1/Dl\ 
I AflURJ I PI 1 




jHOV ADDRESS POINTER 


•03660* 


005364 


004736' 






DEC 


TXCNT2 ( R4 ) 




, COUNT IT 


•03664* 


012603 






TIEXITt 


MOV 


{ R6 ) ♦ , P 3 




; RESTORE R3 


•03666* 


012604 








MOV 


( R6 ) ♦ , R4 




; RESTORE R4 


•03670* 


000002 








RTI 






; RETURN 


•03672* 


005764 


004756* 




FTBUF| 


TST 


TSYNCTC R4) 




j SENT ENOUGH FILL CHARS? 


•03676* 


001 407 








BEQ 


2» 




;BR IF YES 


















;IF NEGITIVE 

;SEND TILL RECINT CLEARS TSYNCT 


•03700' 


100402 








BMI 


If 




•03702' 


005 364 


004756' 






DEC 


TSYNCT(R4) 




;ELSE COUNT IT 


•03706' 


116763 


174262 


000006 


ltl 


NOVB 


SYNC6CR3) 




;SEND IF YES 


M3714' 


•00763 








BR 


TIEXIT 




; AND LEAVE 


•03716* 


117463 


004722' 


000006 


2(1 


MOTB 


•TXADR1CR4) 


,6(R3) (SEND NEXT BYTE 


003724' 


005264 


004722" 






INC 


TXADR1CR4) 




;NOVE ADDRESS POINTER 


•03730* 


005364 


004732' 






DEC 


TXCNTl (R4) 




.-COUNT IT 


•03734* 


000753 








BR 


TIEXIT 




; AND LEAVE 



003736' 
•03744' 
003746' 
•03752* 
•03760' 
•03762' 
•63764' 



042763 000120 
012603 

005064 005076' 

062764 000002 

005704 

001004 

012604 



000004 
004746' 



•03766* 000004 004004' 
012604 



•03774' 

00377o' 

•04004* 
004006' 
•04012' 
•04016' 



000004 004012' 000000' 
005004 

000174 004746* 

012704 000002 

000174 004746* 



; ALL CHAR'S HAVE BEEN TMT'ED 










TIDONEI 


BIC 


1120, 4(R3) 


; KILL THT'ER 










NOV 


(R6)+,R3 


j RESTORE R3 










CLR 


RETTAB*4(R4) 


; KILL IMPENDING 


TIMEOUT 








ADD 


#2,THTRET(R4) 


;MAKE IT A GOOD 


RETURN 








TST 


R4 


;LINE OR 1 










BNE 


14 


jBR IF LINE 1 










MOV 


(R6)+,R4 


; RESTORE R4 










PIRQt, 


2*. BEGIN 


; RTI AND QUEUE 


UP TO CONTINUE 


AT 


2S 


it: 


MOV 


(R6)+,R4 


; RESTORE R4 










PIRQt, 


St, BEGIN 


; RTI AND QUEUE 


UP TO CONTINUE 


AT 


3t 


2»: 


CLR 


R4 


(SET TO LINE 










JHP 


»THTRET(R4) 


j RETURN 








3(1 


MOV 


«3,R4 


jSET TO LINE 1 










JHP 


•TNTRETCR4) 


; RETURN 
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1235 
1236 
1237 
1738 
1239 
1240 
1241 
I 242 
1 243 
1244 
1245 
1246 
1247 
! 24? 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 



;ROUTINE IF TRANSMIT TIMES OUT 



004022' 
•04030' 
•04036' 
634044' 
004052' 
•04060' 
004064' 
00406b' 
•04072' 
004076' 
•04102' 



012764 
016467 
062767 
017767 
042777 
016401 
111102 
042702 
•62702 
010267 
005264 



177777 004672' 

004634' 174012 

000004 174004 

174000 174000 

177767 173770 
004676' 

177760 
00S000 
173752 
005022* 



•04106' 104404 000000' 



004112' 
•041 16' 
•04120' 
004122' 
•04124' 
•04130' 
004134' 



•04140' 
•04144' 

•04159' 
•04154' 
•04156' 
•04162' 
•04170' 
•04172' 
•04176' 
•04204' 



005767 
001402 
•05004 
000402 
012704 
005364 
•00174 



012664 
016401 
•12711 
060421 
1 1671 1 
032774 
001402 
016407 
012774 
104400 



000002 

005022' 

004746' 



MOV 


#177777, AB0RTCR4) ;TELL INT ROUTINES TO GIVE UP 


MOV 


DVASAV(R4),CSRA 


jGET ADDR OF STATUS 


ADD 


I4,CSRA 


;HAKE IT TMT CSR 


MOV 


•CSRA,ACSP 


'SAVE STATUS 


BIC 


#177767, 0CSRA 


/KILL TRANSMISSION AND INT 


MOV 


CURLIN(R4),R1 


; GET ADDR OF CUR LINE 


MOVB 


(Rl ),R2 


; GET VALUE 


BIC 


#177760, R2 


; LEAVE ONLY LINE # 


ADD 


(5000, R2 


; INDICATE TMT TIMEOUT 


MOV 


R2,ASTAT 


jSET UP FOR ERROR CALL 


INC 


TXT0R4CR4) 


;SEE NOTE 1 IN FRONT OF LISTING 


»»•••••»#•»»»»••»•#»»##. 


»•••**•*••«••»««*••••*••<»***••*••*«•¥«•»» 


ERRORS i 


r BEGIN 


jTMT TIMEOUT 


TST 


TXT0R4 




BEO 


!( 




CLR 


R4 




BR 


2( 




MOV 


12, R4 




DEC 


TXT0R4(R4) 




JHP 


•TMTRETCR4) 


; BAD RETURN 



004762' 




CTSJ 


MOV 


004640' 






MOV 


004206' 






MOV 








ADD 


173630 






MOVB 


020000 


004634' 




BIT 








BEQ 


•04762' 






MOV 


000046 


004634' 


RTSSETj 


MOV 








FXIT( 



It: 
2(: 



I SUB GETS CLEAR TO SEND FOR LINE IN DVASAVCR4) AND VCTSAV(R4) 

(R6)+,CTSRET(R4) ;SAVE RET ADDRESS 

VCISAV(R4),R1 >GET VECTOR ADDR 
#CTSInT,(R|) ;MOV IN INT ROUTINE ADDR 
R4,(Rt)+ ; SHOWS WHICH LINE 

BR1,(R1) ; GET BR1 LEVEL 

#20000, 0DVASAVCR4) »IS CLEAR TO SEND UP? 
RTSSET ; BR IF NOT 

CTSRET(P4),R7 ; RETURN 
•46,0DVASAV(R4) ;SET REQ TO SEND 

;EXIT TO MONITOR. MODULE WAIT FOR INTERUPT. 



;INT ROUTINE 



•04206" 


000403 






CTSINTJ 


BR 


1( 


; DIFFERENT PIRQ'S 










•04210' 


000004 


004224' 


000000' 




PIROd 


-25, BEGIN 


; RTI AND QUEUE UP 


TO 


CONTINUE 


AT 


2( 


•04216' 








ltl 
















004216' 


000004 


004232' 


000000" 




PIRQt, 


■ 3 S , BEGIN 


j RTI AND QUEUE UP 


TO 


CONTINUE 


AT 


3S 



•04224' 
•04230' 
•04232' 
•04234' 
004242* 
•04244* 
004252* 



012704 
000401 
005004 
032774 
031755 
042774 
01 6*07 



020000 004634' 4$: 



000040 0*4631' 
004762' 



MOV #2,F4 jSET UP FOR LINE 1 

BP 4t 

CLP R4 ;SET UP FOR LINE 

BIT 120000, BDVASAV(R4) J IS CLEAR TO SEND SET? 

BEQ RTSSET ;G0 TRY AGAIN IF NOT 

BIC I40,0DVASAV(P4) ;DISABLE DATA SET CHG INT'S 

MOV CTSPET'.R4),P7 ; RETURN 
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SEQ 0051 



1291 
1292 
1293 
1294 

1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1363 
1304 
1 395 
1306 
1307 
1309 
1 309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1316 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1 326 
1327 
1326 
1329 
1330 
1331 
! 332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1 340 
1341 
1342 
1343 
1 344 
1 345 
1346 



•04256' 060402 

•04260' 01»162 

004264' 067762 

•04272' 010462 

•04276' 010062 



004302' 022767 

•04310' 001410 

•04312' 005704 

004314' 001402 

•04316' 005004 

•04320' B00402 

•04322' 012704 

•04326' 000167 



004362* 005767 
00436b' 001401 
004370' 104400 



005062' 

000000G 005062' 

005102' 

005072' 



000002 000 360 



000002 
174332 



004332' 012702 005072' 
034336' 005722 
004340' 001026 
004342' 020227 005102' 
004346* 001373 
•04350* 005767 000424 
004354' 001402 
004356* 000167 000064 



000410 



•04372* 012767 000001 000376 

004400' 104407 000000* 

•04404* 104407 000000' 

00441*' 005067 000362 

004414' 000746 

00441b' 005742 

004420' 027762 000000G 177770 
004426' 003002 



I 

• ALL ROUTINES COME HERE WHILE WAITING FOR I/O 
ROUTINE EITKF.R KICKS OFF SECOND LINE, NOTIFYS 
•ROUTINES OF TIMEOUTS, OR JUST DOES BREAKS, 
Jl/O ROUTINES THAT FIHISH UP BEFORE TIMEOUT VALUE 
:MUST CLEAR LOCATION RETTABCR4) *9 I? RECEIVER OP +4 
;IF TMT, 

2 CALLED WITH A JMP TO TIHKEP AFTER LOADING 



; R0 m 


WHERE TO 


RETURN IF TIME 


: out 


1 Rl a 


HOW LONG 


TO WAIT (IN SECONDS) 


; R2 i 


e IF ITS 


A EEC TIHEINS 


OR 4 IF ITS * i«i 


j R4 * 

S 


FOR ACTIVE LINE 0, 2 


FOR ACTIVE LINE 1 


TlHKEpi 


ADD 


R4.R2 


;FIGURE OUT WHICH TABLE ENTRY 




MOV 


R1,TIMTAB(R2) 


iSTORE HOW LONG TO WAIT 




ADD 


PTImE. TImTAB(R2) »*DD PRESENT TIME 




MOV 


R4,R4TAB(R2) 


;SAVE WHICH ACTIVE LINE 




MOV 


R0.RETTABCR2) 


j WHERE TO RET TO, PLUS 








,IF THIS ENTRY IN TABLE IS 








;0 THEN NO TIMEOUT WILL 








>OCCUR FOR THIS ENTRY SET 




CHp 


I2,LINACT 


;ARE 2 LINES GOING? 




BEO 


TIMCHK 


; BR IF YES 




TST 


R4 


; ARE WE LINE 0? 




BEQ 


1$ 


; BR IF YES 




CLR 


R4 


, IF NO MAKE IT 




BR 


2t 




it: 


MOV 


12, R4 


jWE WERE SO NOW DO 1 


2s: 
; 


JMP 


GETNXT 


;G0 DO OTHER LINE 


tihchk: 


MOV 


IRETTAB,R2 


; GET ADDR OF TIME STATUSES 


it: 


TST 


(R2)» 


;ANY WAIT GOING ON? 




BNE 


4t 


;BR IF YES 


lit: 


CMP 


R2, tRETTAB* 10 


; ARE WE DONE LOOKING 




BNE 


It 


; BR BACK IF NO 




TST 


PAST I M 


jTIME FOR END OF PASS 




BEO 


2t 


jBR IF NO 




JMP 


EPASS 


;G0 REPORT END OF PASS 


2»: 


TST 


BRKFLG 


;ARE WE ALREADY IN A BREAK? 




BEQ 


3t 


;BR IF NO 




EXIT! 




;EXIT TO MONITOR. MODULE WAIT FOR INTERUPT. 


35! 


MOV 


il, BRKFLG 


JSHOW WERE DOING BREAK 




BREAKS , 


BEGIN 


f temporary return to monitor.... 




BREAK! > 


BEGIN 


;THEN CONTINUE AT NEXT INSTRUCTION. 




CLR 


BRKFLG 


;SHOW WERE BACK 




BR 


TIMCHK 




4S: 


TST 


-CR2) 


;MOVE R2 BACK 




CHP 


?TIHE,-10(R2) 


;IS TIME UP? 




BGT 


St 


; BR IF YES 
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1347 


•04430' 


005722 






TST 


(R2) + 


;BUMp R2 BACK AGAIN 


1348 


004432' 


000743 






BR 


lit 


;G0 CHECK OTHERS 


1349 

1350 


004434' 


P16204 


000010 


5t: 


MOV 


10(R2),R4 


;SET R4 CORRECTLY FOR WHICH LINE 


1351 


004440' 


01 1203 






MOV 


(R2),R3 


;SAVE RETURN 


1352 


904442' 


09591 2 






CLR 


(R2) 


;CLEAR THIS ENTRY 


1353 


004444' 


010307 






MOV 


R3.R7 


;JMP TO TIME OUT ROUTINE 


1354 
















1 355 








J 








1356 
















1357 








1 EPASS 


DOES END 


OF PASS CALL 


AND PRINTS ERR SUMMARY 


1 356 








JIF LOCATION REPORT IS NOT • 




1 359 
1 360 


904446* 


•05767 


173512 


EPASS : 


TST 


REPORT 


jDO ERR SUM OR NOT 


1 361 


•04452* 


001461 






BEQ 


5S 


;BR IF NO 


1 362 


004454' 


005267 


000146 




INC 


MSGCNT 


;COUNT A PASS 


1 363 


004460' 


026767 


000142 173476 




CMP 


MSGCNT, REPORT 


; TIME FOR A MSG? 


1 364 


004466' 


001053 






BNE 


5t 


;IF NOT EVEN 8, SKIP MSG 


1 365 


•0447H' 


•05067 


000132 




CLR 


MSGCNT 




1 366 


304474' 


012700 


000212' 




MOV 


IPHYTAB,R0 


•FIND WHICH LINES ARE RUNNING 


1 367 


•04500' 


012701 


011252* 




NOV 


ISUM1+4,R1 


jPOINTS TO MSG 


1368 


•04504* 


1 05710 




is: 


TSTB 


(R0) 


;I5 LINE IN USt? 


1 369 


004506' 


100403 






BMI 


2t 


j BR IF YES 


1370 


904510' 


•12711 


054130 




MOV 


154130, (Rl) 


•PUT XX IN S OF LRRS 


1371 


•04514' 


000427 






BR 


4S 




1372 


•04516* 


116002 


•00040 


2t: 


MOVB 


32.(R»),R2 


; GET 1 OF ERRS 


1 373 


•04522' 


1 05060 


000040 




CLRB 


32. (R0) 


; RESET ERR COUNT 


1 374 


•04526' 


•22702 


000077 




CMP 


•77, R2 


; ANY GOOD MSGS 


1375 


•04532' 


002416 






BLT 


3S 


; BR IF NO 


1 376 


•04534' 


010203 






MOV 


R2.R3 


jPUT IN MSG 


1377 


•04536' 


042703 


177770 




BIC 


il7777B,R3 


j LEAVE ONLY LOW DIGIT 


1378 


•04542' 


062703 


000060 




ADD 


160, R3 (MAKE 


IT ASCII 


1 379 


004546' 


110361 


000001 




MOVB 


R3,1(R1) 


; STORE IT AWAY 


1380 


004552' 


•06202 






ASR 


R2 


;GET NEXT DIGIT 


1 381 


004554' 


006202 






ASR 


R2 




1 382 


004556' 


906302 






ASR 


P2 






oaKfca * 


S627H2 






ADD 


S £S- R? 


.{iiir it ASCII 


1384 


004564' 


110211 






MOVB 


R2,(Rl) JPUT 


IT IN MSG 


1385 


•04566' 


000402 






BR 


4t 




1386 


904570' 


012711 


042102 


3t : 


MOV 


142102, (Rl ) 


jPUT IN AN 'BD' (OR BAD 


1387 


•04574' 


005200 




4t: 


INC 


R0 


;BUMp LINE POINTER 


1388 


90457b' 


062701 


000010 




ADD 


110, Rl 


jPOINT TO NXT MSG 


1389 


004602' 


•20027 


000232' 




CMP 


R9, IPHYTAB+20 


•DONE 


1390 


•04606' 


•01336 






BNE 


IS 


;G0 DO MORE 


1 391 


•04610' 


10441 1 


004622' R00<100* 




MSGNt,HSUM, BEGIN 


;ASCII MESSAGE CALL WITH COMMON HEADER 


1392 
















1393 
















1394 


•04616' 






5S: 








1395 


•04616' 


1 94402 


000000' 




ENDPSt, 


BEGIN 


;SIGNAL END OF PASS. CONTINUE AT RESTRT 


1 396 
















1 397 


•04622' 


01 1 162* 




msuh: 


SUM 






1398 


•04624* 


1 77777 






-1 






1 399 
















1400 


•04626* 


000000 




msgcnt: 







;COUNTS END PASSES FOR MESSAGE CALL 


1401 


004630' 


000000 




MASK ; 







;USED FOR BIC'ING IN LOOPS 


1402 


•04632' 


000P00 




nxtlin: 


6 




;ADP OF NEXT LIN 
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SEO 0053 



1 403 


904634 * 


000000 






1 404 


•04636" 


000000 






1 405 


00464O' 


e 39900 


VCTSAV t 




1 40b 


004642" 


000000 






1407 


004644' 


0051 1 2* 


AMSGBFl 


MSGBF0 


1 408 


004646" 


0971 32* 




HSGBF1 


1409 


004650" 


900000 


RECADRt 




1410 


004652' 


090000 




J: 


1411 


004654' 


090000 


RECCNT 1 




1412 


004656* 


000000 




J[ 


1413 


004660" 


000000 


RECTIM l 





1414 


004662 " 


000000 







1 4 1 5 


004664 * 


000000 


SYNCNTt 




1416 


004666" 


000000 






1417 


004670' 


000000 


LIN ACT* 




1418 


004672* 


000000 


ABORT* 




1419 


004674* 


900000 






1 423 


004676 ' 


000000 


CURLINl 


„ 


1 421 


004700* 


000000 






1422 


004702* 


002704' 


RECD: 


RECDN 


1 423 


004704* 


002710* 




RECDN+4 


1424 


004706' 


000000 


ERRWDl 





1425 


004710' 


000000 







1 426 


004712' 


000000 


LOOP: 





1427 


004714' 


000000 







1426 


004716" 


000000 


RECRTHi 





1 429 


004720* 


000000 







1 430 


004722" 


000000 


TXADR1 | 


9 


1431 


004724* 


090000 







1432 


004726* 


000000 


TXADR21 





1433 




000000 






1434 


004732* 


000000 


TXCHT1 1 




1435 


004734* 


000000 







1436 


004736* 


000000 


TXCNT2I 





1437 


004740* 


000000 







1436 


004742' 


000000 


TMTTIMt 





1 4 39 


004744* 


090000 







1440 


004746* 


000000 


tmtret: 





1441 


00475(1' 


000003 







1442 


004752* 


090000 


THTDON | 





1443 


004754' 


030000 







1 444 


004756* 


000000 


TSYNCTS 





1 445 


004760* 


000000 







1 446 


004762* 


000000 


CTSRETl 





1447 


004764* 


000000 







1448 


004766' 


090000 


FDFLAGt 





1 449 


004770" 


900000 







1 450 


004772* 


090000 


RCVTOl 





1451 


004774 * 


000000 







1 452 


004776' 


000000 


BRKFLGI 





1453 


005000* 


000000 


pastim: 





145 4 


905002* 


000000 


DROPR4I 





1455 


005004' 


000000 







1456 


005006' 


000000 


DTERR4I 





1457 


005010' 


000000 







1458 


005012' 


900000 


CRCR4t 






•EXIT FLAGS 



HOLDS DVA FOR ACTIVE Lf.0 
HOLDS DVA FOR ACTIVE L#l 
HOLDS VCT FOR ACTIVE LI0 
HOLDS VECTOR FOR ACTIVE Lll 
ADDRESS OF MSG BUFFER 
ADDRESS OF MSG BUFFER t 
CURRENT REC WORD POINTER 
CURRENT REC WORD POINTER 1 
REC BYTE COUNT FOR 
REC BYTE COUNT FOR 1 

TEMP HOLDS TIME OUT VALUE FOR A REC 
SAME BUT FOR LINE 1 

COUNTS HOW MANY SYN CHARACTERS REC 
SHOULD WAIT FOR. 

HOLD THE NUMBER OF LINES RUNNING, 0-2 
ABORT FLAG FOR L10 
ABORT FLAG FOR Lll 

POINTS TO STATUS BYTE FOR CURRENT L|0 
POINTS TO STATUS BYTE FOR CURRENT Lll 
WHERE TO PIRO AFTER REC DONE 

HOLDS ERR WORDS TEMPORARILY 
HOLDS ERR WORDS TEMPORARILY 
HOLDS LOOP COUNT FOR LINE I 
HOLDS LOOP COUNT FOR LINE I 1 
HOLDS RETURN ADDR FOR LINE 10 
HOLDS RETURN ADDR FOR LINE II 
HOLDS 1ST ADDR TO TMT FROM, LINE 
SAME FOR LINE 1 

HOLDS 2ND ADDR TO TMT FROM, LINE 
SAMS FOR LINE 1 

HOLDS 1ST TMT COUNT FOR LINE 
SAME FOR LINE 1 

HOLDS 2ND TMT COUNT FOR LINE 
SAME FOR LINE 1 

HOLDS TIME OUT TIME FOR LINE 
SAME FOR LINE 1 

HOLDS RTN ADDR FOR TMT, LINE 
SAME FOR LINE 1 
FLAG FOR WHEN A TMT IS DONE 
SAME FOR OTHER LINE 

HOLDS * OF SYN CHAR TO SEND, LINE 

SAME FOR LINE 1 

HOLDS RETURN ADDR FOR CTS 

SAME FOR LINE 1 

IF HALF DUPLEX, 1 IF FULL 

COUNTS REC TIME OUT RETRYS 

IS A ONE DURING BREAKS 
• HAS A 1 WHEN ITS TINE FQR END OF PASS 
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1 459 


005014* 


090000 


1460 


005016' 


000000 


1461 






1462 


005020* 


000000 


146 3 


005022* 


000000 


1464 


905024' 


000000 


1465 


005026* 


000000 


1466 






1467 


005030* 


000000 


1466 


005032' 


900000 


1469 


005034' 


000000 


1470 






1471 






\ *T> 






1473 






1474 






1475 


•05036' 




1476 


005036* 


010046 


1477 


005040' 


042700 


1478 


005044* 


001404 


1479 


005046' 


062701 


14R0 


005052* 


005 300 


1481 


005054' 


090773 


1482 


005056' 


012600 


1483 


005060' 


000207 


1484 






1485 






1486 


005062* 


090000 


1487 


005064' 


000000 


1488 


•05066* 


000000 


1489 


•05070* 


000000 


1490 


005072* 


000000 


1491 


005074" 


000000 


1492 


005076" 


000000 


1493 


905100' 


000000 


1494 


•05102' 


000000 


1495 


005104* 


000000 


1496 


905106* 


000000 


1497 


005110' 


000000 


1498 






1499 






1500 


0051 12' 


001010 


1501 


007132* 


001010 


1502 


t 11152' 


177777 


1503 


01 1154' 


177777 


1504 


01 1 156' 


011450 


1505 


011160' 


177777 


1506 






1507 


01 1162' 


005015 


1508 


011170* 


020105 


1509 


01 1176* 


046440 


1510 


011204* 


051105 


1511 


01 1212' 


926105 


1512 


011220' 


041517 


1513 


01 1226' 


0B5015 


1514 


»1 1230' 


U44514 



044523 
040514 
043523 
046040 
044440 
040524 



041516 
052123 
050040 
047111 
020116 
020114 
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TXT0R4 I 


FDBKR4I 



CHKR4I 




)R1 HAS ADDR OR VECTOR 

•R0 HAS LINE I IN LOW BITS, 

GETADRI 



MOV 

BIC 

BEO 

ADD 

DEC 

BR 

MOV 

RTS 



R0,-(R6) 
1177760, R0 
2* 

110, Rl 

R0 

1* 

CR6)*,R0 
PC 



RETURNS WITH ADDR OR VECTOR IN Rl 
;SAVE R0 

j SAVE ONLY LINE I 
;DONE 

;BUMP TO NEXT LINE 
j ADDED ENOUGH TIMES? 
{GO BACK 
| RESTORE R0 

(RETURN WITH DVA IN Rl 



I WHEN TO TIME OUT FOR RECLINE 
; WHEN TO TIME OUT FOR REC, LINE 1 
j WHEN TO TIME OUT FOR TXT, LINE 
; WHEN TO TIME OUT FO TXT, LINE 1 
; WHERE TO RETURN FOR REC LINE 
(WHERE TO RETURN FOR REC LINE 1 
; WHERE TO RETURN FOR TXT LINE 
; WHERE TO RETURN FOR TXT LINE 1 
; HOLD R4 FOR RETURNS 



HSGBFO: 
MSGBF1I 
FILL I 



.EVEN 

sum: 



520. 
520. 



;REC BUFFER FOR LINE 
;REC BUFFER FOR LINE 1 
;4 CHARACTERS OF FILLER PYTES 



043516 021440 



.BLKW 
.BLKW 
177777 
177777 
MDROP 
-1 

.ASCII <15><!2>*SINCE LAST MSG PER LlHt, IN OCTAL "<15><12> 



.ASCII "HN6. • ERRS*<15><1 2> 



NUAA DEC/X11 SfSTEM EXERCISER MODULE 
NuAA.Pii 
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1515 


•11236* 


020043 


051105 


051522 










1516 


011244* 


005015 














1517 


•11246' 


•30060 


026455 


030060 


sum : 


.ASCII 


'00. 


-••'<15><12> 


1518 


•11254' 


905015 












1519 


811256* 


830460 


026455 


830060 




• ASCI I 


*81« 


-«»e*<i5>«i2> 


1520 


411264' 


005015 












1521 


•11266* 


031060 


026455 


030H60 




.ASCII 


'02- 


-00'<15><12> 


1522 


911274* 


005015 












1523 


















1524 


















1525 


011276* 


031460 


026455 


030060 




.ASCII 


'03- 


-00'<15><12> 


1526 


011304* 


005015 












1527 


SU306* 


S3206S 


S26455 


g 10660 




•ASCII 


'04 = 


-•••<15><S2> 


1528 


011314* 


005015 














1529 


















1530 


















1531 


















1532 


011316' 


032460 


026455 


030060 




.ASCII 


'05- 


-00*<15><12> 


1533 


01 1324' 


•05015 












1534 


011326' 


033060 


026455 


030060 




•ASCII 


'•6- 


-0«'<15><12> 


1535 


•11334* 


005015 














1536 


•11336' 


033460 


026455 


030060 




• ASCII 


'•7- 


-••*<15><12> 


1537 


011344* 


005015 














1536 


011346' 


030061 


026455 


030060 




.ASCII 


'10- 


-»0*<15><12> 


1539 


•11354* 


005015 














1540 


•11356' 


030461 


026455 


030060 




•ASCII 


'11- 


-»0*<1S><12> 


1541 


011364' 


005015 














1542 


• 1 1366' 


031061 


026455 


030060 




•ASCII 


'12- 


-08'<15><12> 


1543 


•11374' 


•0S015 














1544 


•11376' 


031461 


026455 


030060 




•ASCII 


'13- 


-00'<15><12> 


1545 


•11404' 


005015 














1546 


•11406' 


032061 


026455 


030060 




•ASCII 


'14- 


-••'<15><12> 


1547 


•11414' 


005015 














1548 


•11416' 


032461 


026455 


030060 




•ASCII 


•15- 


-••'<15><12> 


1549 


•11424' 


095015 














1550 


01 1426* 


033061 


026455 


030060 




•ASCII 


'16- 


-00*<15><12> 


1551 


•1 1434* 


005015 














1552 


•11436* 


033461 


026455 


030060 




•ASCII 


•17- 


-00*<15><12> 


1553 


011444* 


005015 














1554 


















1555 


•11446' 


000 








.BYTE 







1556 




011450* 








.EVEN 






1557 


















1558 


01145V?' 


044514 


042516 


053440 


HDROPl 


.ASCIZ 


'LINE HAS DROPPED' 


1559 


B11456' 


051501 


042040 


047522 










1560 


011464' 


050120 


042105 


000 










1561 




000001 






.END 
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NI1AA.P11 


CROSS 


REFERENCE 


TABLE -- 


USER I 


SYMBOLS 








ABORT 


•04672R 




846* 


911* 


936 


1113* 


1159* 


1189 


1237* 


ACSP 


00005 2 R 




469* 


997* 


1117* 


1240* 








ADDP 


•00006R 




4481 


643 


702 










ADROP 


011156R 




787 


1504* 












AMSGBF 


•04644R 




745 


814 


840 


1053 


1407* 






A SB 


900056 R 




4721 














ASTAT 


00005 4 R 




4711 


1003* 


1004* 


1011* 


1012* 


1013* 


1058* 


AMAS 


•00060R 




4731 














BDCNV * 




G 


It 














BEGIN 


•00M00R 




4451 


624 


625 


658 


659 


672 


724 








1016 


1044 


1045 


1069 


1101 


1127 


1223 








1391 


1395 












BIT0 x 


•90001 




4821 














BIT1 * 


•00002 




4821 














BIT10 x 


•02000 




482S 














BIT11 » 


004000 




4821 














BIT12 « 


010000 




4821 














BIT13 = 


•20000 




4821 














BIT14 * 


•40000 




4821 














BIT15 * 


10000? 




4821 














BIT2 * 


000004 




482* 














8IT3 * 


000010 




482* 














BIT4 * 


•00020 




482* 














BITS » 


•00040 




482* 














BIT6 i 


•0010fl 




482t 














BIT7 « 


000200 




4821 














BIT8 x 


(100403 




482* 














BIT9 * 


001000 




482* 














BREAKS* 


104407 




482* 


658 


659 


868 


669 


1044 


1045 


8RKFLG 


•04776P 




691« 


728 


1334 


1338* 


1341* 


14521 




BP1 


0000 12R 




450* 


910 


1158 


1269 








BR2 


•0001 3R 




4511 














CDATASx 


104414 




4821 














CFR 


003172R 




1075 


1077 


1093* 










CHKP4 


005032R 




687* 


688* 


1043* 


1046 


1051* 


1468* 




CKMSG s 




G 


482* 


1041 


1068 










r p r m 5 c * 






4821 


1074 


1076 










CRCB4 


•05012R 




679* 


680* 


1099* 


1103 


1108* 


14581 




CSRA 


•00050R 




467* 


996* 


1119* 


1238* 


1239* 


1240 


1241* 


CTS 


•041 40R 




759 


805 


839 


1265* 








CTS1NT 


•04206R 




1267 


1276* 












CTSPET 


•04762R 




1265* 


1272 


1290 


1446* 








CURLIN 


P04676R 




697* 


778 


827 


887 


996 


1061 


1087 


DATAER 


C02626R 




1002 


1011* 












DATCK«= 


194417 




482* 














DATERJi 


104405 




482* 














DERP 


•01300R 




762 


774* 












DEVSETz 


»•*••» 


G 


4831 


626 












DONE 


•0077 4R 




695 


716* 












DROP 


•01344R 




781 


7851 


630 


892 








DROPR4 


005002R 




675* 


676* 


786* 


788 


793* 


1454* 




DTEPR4 


•05006 R 




677. 


678* 


1014* 


1018 


1023* 


1456* 




DVASAV 


•04634R 




704* 


763* 


768 


774* 


809* 


626* 


880* 








1038* 


1117 


1118* 


1119 


1161 


1191 


1238 


DVID1 


00001 4R 




4521 


622 












ECOUNT 


• 0K)252R 




552* 


1089* 













787 
1227 



868 
1249 



869 
1278 



979 
1282 



991 

1339 



100b 
1340 



1096 



891* 
1 270 



915* 
1 273* 



922* 

1287 



935 
1289* 



984* 
1403* 
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ENDPSS * 


1 04402 




4821 


1 395 
















4821 


624 


672 


724 






EPASS * 


004446R 




7 30 


1332 


1 3601 








EPRCNT 


0000 30R 




459» 












ERRLVL 


000 1 7 2 R 




49 1 * 


780 


829 


889 


1115 






1 04410 




482* 










ERRORS ■ 


1 04404 




4821 


1 006 


1016 


1 101 


1127 


1 249 




0002 32R 




5331 










ERRWD 


00 4 7 6 R 






956 


960* 


961* 


997 


1001 




1 04400 




4821 


7 33 


862 


1006 


1274 


1 336 


FDBKR4 


•05026R 




685* 


686* 




870 


875* 


1 465* 


FDFLAG 


004766R 




735* 


7 39* 


a to* 


913 


951 


1 162 


FDRCDN 


•0t 760R 




645 


865 1 


876 


890 






FDTO 


0021 22R 




855 


8961 










FERP 


001 31 4R 




751 


7771 










FERR1 


001 316R 
















FILL 


01 1 1 5 2R 




758 


* * 


85 1 


15024 






FTBUF 


•03672R 




1193 












GERR 


•01554R 






826* 










GETADR 


•05036R 




703 


706 


14754 








GETNXT 


000664R 




6941 


701 


771 








GETPAS* 


10441 3 
















GWBUFf » 


1 044 1 2 




* BOi 












HERR 


001562R 




819 


8271 










INIT 


000022P 




456* 












JERR 


•02054R 




fat 




, * 








LINACT 


004670R 




693* 


■rail 


716 




1315 


_ 

14171 


LNOONE 


001 254R 






794 


823 


::' 






LOOP 


00471 2R 






764* 


765 




821 


877* 


LPCNT 


000166R 






765 


821 


::: 

878 






MAP22S ■ 


1 0441 S 
















MASK 


004630R 




627« 






637 




1 401 4 


MD s 




GX 


Tl ■> 












MD ATAB 


000 2 7 2 R 




*7fci 












MDHTAB 


000 3 1 2 R 


















0| | ICnp 
VII 




KaA 












MODNAM 


000000 R 




4461 












HODSP 


600 1 6 4 R 




457 


. 










MSG s 






1«7* 


1054 










MSGBF0 


005 1 1 2R 






1 500 1 










MSGBF 1 


007 1 3 2R 




1 408 


1501 1 










MSGCNT 


004626P 




655* 


1362* 


1 363 


1 365* 


1400t 




HSGHEDi 






4821 


754 


800 


846 






MSGNS x 


104411 




4821 


787 


1 391 








MSGSIZx 


*•••»» 


G 


482' 


746 


755 


801 


815 


841 


MSGSS s 


1 044 1 6 
















MSGS > 


104406 




4821 














904622P 






1 397* 










N X TL I N 






*692* 


694 


696 


699* 


14 




OACNV s 




G 


1 • 












ONEPEC 


•01150R 




493 


7521 


783 








ONETMT 


001 472P 




494 


8101 










OPEN i 


000000 




447 
473 


453 
4821 


460 


461 


462 


463 


PASCNT 


000026R 




4581 












PASTIM 


W05000R 




690* 


726* 


1330 


14531 







NUAA DEC/X11 SYSTEM 


EXERCISER MODULE 


MACY11 


27(732) 


20-MAY' 


NUAA.P11 CROSS REFERENCE 


TABLE - 


- USER ; 


SYMBOLS 




PHYTAB 


O00212R 


5111 


628 


635 


653 


692 


PIRQS > 


000004 


4821 


979 


991 


1223 


1227 


POPSP a 


005726 


4821 










P0PSP2» 


022626 


482* 










PP 


0010S2R 


713 


7 35* 








PPFD 


001604R 


738 


836* 








PFFD1 


031624R 


8401 


879 








PPHOH 


001 406R 


741 


799* 


822 






PPHDM2 


001534R 


813 


820* 


831 






PPHOS 


001 104R 


7441 


766 








PPHDS2 


001240R 


753 


764* 


784 






PPTY * 


B0000F 


482* 










PPTY0 a 


000000 


4821 










PCTY1 X 


mxaat.t 


ii->t 










PPTY2 ■ 


•00100 


4821 










PPTY3 * 


K00140 


4821 










PRTY4 = 


900200 


482S 










PRTY5 * 


000240 


450 


451 


482* 






PPTY6 « 


•00300 


482* 










PRTY7 = 


•00340 


482* 










PS * 


1 77776 


482* 










PSW ■ 


177776 


4821 










PUSH s 


•05746 


482* 










PUSH2 * 


•24646 


482* 










PWRCNTi 


•••••• G 


482* 


670 








OUES * 


104401 


4821 










RCT0R4 


0050 16R 


681* 


682* 


1125* 


1129 


1134* 


RCVTO 


004772R 


710* 


1039* 


1114* 


1115 


1135* 


RDTO 


003260R 


897 


919 


11131 






RFC 


•02134R 


750 


818 


843 


906* 




RF.CADP 


•04650R 


745* 


814* 


840* 


963* 


964* 


RECCNT 


F04654P 


746* 


747* 


815* 


816* 


841* 


RECD 


•04702R 


972 


1422* 








RECON 


•02704R 


979 


1035* 


1422 


1423 




RECEPR 


003206R 


1059 


1096* 








RECINT 


•02244R 


908 


927* 








RECRTN 


•04716R 


896* 


906* 


916 


1078* 


1080 


RECTIM 


004660R 


748* 


749* 


817* 


920 


1413* 


REPORT 


•00164R 


486* 


954 


1056 


1063 


1083 


RERP 


002502R 


957 


962 


982* 






RESTRT 


•00532R 


474 


657 


670* 






RETTAB 


•05072R 


1040* 


1079* 


1217* 


1311* 


1325 


RPIPO 


B02474R 


972* 


977* 








RRET 


•03134R 


1031 


1079* 


1085 


1090 


1109 


RSTRT 


•00062R 


4741 










RTSSET 


004176R 


1271 


1273* 


1288 






R4TAB 


005102R 


1310* 


1494* 








SRADR 


•00052R 


4b8l 










SPARE1 


000202R 


49bi 










SPARE2 


B00204R 


497* 










SPARE3 


•00206R 


4981 










SPAPE4 


0002I0R 


499* 










SPOINT 


000024R 


457» 


674 








SPSIZ * 


000040 


11 


475 








SP1 


000016R 


453* 


640 








START 


H00312R 


456 


b22i 









694 
1278 



719 
1282 



14601 
14501 



1409* 
842* 



1136 
1093 



1428* 

1360 
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STAT 


030020R 


4551 














SUM 


011162R 


1 397 


15071 












SUM1 


•11246R 


1 367 


1517» 












SVR0 


900032R 


4601 














SVR1 


940034R 


4611 














SVR2 


£00036R 


462* 














SVR3 


•00040R 


463f 














SVR4 


00004 2 R 


4641 














SVR5 


9£0S"44R 


465S 














SVR6 


800046R 


4661 














SYNC 


0001 7 4R 


4<»2* 


647* 


648 


946 


1167 


1177 


1207 


SYNCNT 


004664R 


912* 


942 


950* 


1415* 








TIDONE 


893736R 


1 195 


12158 












TIEXIT 


003664R 


1 190 


1199* 


1208 


1212 








TIHCHK 


004332R 


7IB 


1316 


1325* 


1342 








TIME * 


••**•• G 


4621 


1309 


1345 










TIMELN 


P00170R 


4901 


748 


749 


760 


806 


817 


856 


T1MKEP 


004256R 


859 


923 


1178 


1307* 








TIMTAB 


V05062R 


1 308* 


1309* 


1486* 










TMT 


003426R 


761 


807 


852 


1152* 








TMTDON 


004752R 


861 * 


865 


885* 


1153* 


1442* 






TMTINT 


003S76R 


1156 


1181* 












TMTRET 


(•04746R 


1 152* 


1 168 


1218* 


1230 


1232 


1257 


1440* 


TMTTIM 


P04742R 


760* 


806* 


1174 


1438* 








TPX » 


900000 


482* 














TPAPX ■ 


•00020 


4821 














TSYNCT 


004756R 


953* 


1160* 


1 165* 


1202 


1206* 


14441 




TXADP1 


004722R 


754* 


600* 


846* 


1209 


1210* 


1430* 




TXADR2 


O04726R 


758* 


804* 


851* 


1196 


1197* 


1432* 




TXCNT1 


B04732R 


755* 


756* 


801* 


802* 


848* 


849* 


1192 


TXCNT2 


004736R 


757* 


803* 


850* 


1194 


1198* 


1436* 




TXTO 


&04022R 


1173 


1237* 












TXTOB4 


005022R 


683* 


684* 


1247* 


1251 


1256* 


1463* 




VCTSAV 


D04640R 


707* 


907 


1154 


1266 


1405* 






VECTOR 


000010R 


4491 


705 












WAIT = 


G 


482* 


656 












WASADR 


0000S4R 


4701 














XFLAG 


000005R 


447* 














X4 


003144R 


1072 


1083* 












X5 


003154R 


1057 


1084 


1087* 


1094 








, X 


011471R 


1500* 


1501* 


15S6* 











. ABS. 000003 000 
P11471 001 



% ERRORS DETECTED: 1 

% DEFAULT GLOBALS GENERATED: 1 

•NUAA, NUAA/SOL/CRF: SYMsDDXCOH, NUAA 
RUN-TI"E: 7 12 1 SECONDS 
PUN-TIME RATIO: 53/20«2.5 
CORE USED: 8K (15 PAGES) 
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SEQ 0060 



1 .REM % 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 IDENTIFICATION 

1 4 ~~ 

15 PRODUCT CODES MAINDEC-1 1 -DXNQA-A-D 
16 

17 PRODUCT NAME: DQ-11 DECNET DEC/X11 EXERCISER MODULE 

18 

19 DATES 21-JUN-76 

20 

21 MAINTAINER; DEC/X11 DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN, 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL, 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION , MAYN ARD , MASS , 

38 



NQAA DEC/X11. 
NQAA. PI J 
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1. ABSTRACT 

THIS TYPE OF DEC/Xll MODULE, REFERRED TO AS DECNET DEC/Xll MODULE, 
WILL DETECT SYSTEM INTERACTION ERRORS WHEN RUN IN CONJUNCTION WITH 
OTHER DEC/XU MODULES EXERCISING OTHER DEVICES ON THE SYSTEM, 
ERRORS ARE REPORTED ON THE SYSTEM CONSOLE AS THEY OCCUR OR AS A 
SUMMARY REPORT, AT THE OPERATORS OPTION. IN ADDITION, THESE 
MODULES MAY BE USED TO VERIFY THE CONDITION OF THE ASSOCIATED 
MODEMS AND COMMUNICATION LINKS, IT WILL ONLY TEST COMMUNICATIONS 
PATHS CAPABLE OF RUNNING DDCMP, THIS MEANs THE DEVICES MUST USE 
NO PARITY, 8 LEVEL CODE, AND TERMINALS CANNOT BE TESTED. 



NOTE 

THIS DOCUMENT ASSUMES FAMILIARITY WITH 
THE PHILOSOPHY AND OPERATION OF DEC/Xll, 
THE DETAILS OF LINKING, LOADING, AND 
RUNNING MODULES UNDER DEC/Xll CAN BE 
FOUND IN THE DEC/Xll USEPS DOCUMENTATION 
AND REFERENCE GUIDE, MAINDEC-1 1 -DXQBA , 
THE READER SHOULD ALSO HAVE READ THE 
DECNET DEC/Xll USER'S GUIDE, 

MAINDEC-1 1-DXQBCr WITHOUT THROUGHLY 
UNDERSTANDING THAT DOCUMENT, THERE IS 
LITTLE HOPE OF SUCCESSFUL TESTING, 



2, HARDWARE REQUIREMENTS 

THESE MODULES REQUIRE A COMPLETE PATH FROM A COMMUNICATIONS DEVICE 
TO A COMMUNICATIONS DEVICE, THIS MAY BE ACCOMPLISHED THROUGH A 
VARIETY OF METHODS t 



A, 1 PROCESSOR, 1 COMM. DEVICE, AND A LOOP BACK DEVICE WITH 
MODEM SIMULATION CAPABILITIES, (MUST RUN FULL DUPLEX) 



B. 1 PROCESSOR, 2 COMM. DEVICES, 2 MODEMS 

C. 2 PROCESSORS, 2 COMM. DEVICES, 2 MODEMS 



UP TO SIXTEEN LINES CAN BE HANDLED BY ONE MODULE BUT ONLY 2 
LINES ARE KEPT RUNNING SIMULTANEOUSLY. 



3, SOFTWARE REQUIREMENTS 

A, THE DEC/Xll MONITOR MUST BE QABK OR A LATER REVISION, 

B. THE N 1 A? MODULE MUST BE CONFIGURED DIRECTLY AFTER THE 
MONITOR* 
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C. ALL NETWORK MODULES MUST BE CONFIGURED NEXT. 

D. THE N2A? MODULE MUST BE CONFIGURED NEXT.* 

E. ONE OF THE 3 CLOCK MODULES MUST BE CONFIGURED NEXT. EITHER 
KWA?, KWB? , OR KMX? 

F. ANY OTHER DESIRED DEC/X11 MODULES CAN THEN BE CONFIGURED IN 
ANY ORDER. 



4. PRELIMINARY TESTING 

THE APPROPRIATE STAND ALONE DIAGNOSTICS MUST BE RUN TO VERIFY THE 
CPU, AND THE COMMUNICATIONS DEVICE. THEN A DEC/X11 EXERCISER 
USING THE CONVENTIONAL (MAINTENANCE MODE) DEC/XH MODULES FOR THE 
COMMUNICATIONS DEVICES MUST BE RUN, IF BOTH THESE STEPS PASS 
SUCCESSFULLY, DECNET DEC/Xll MAY BE ATTEMPTED. 



5, PROGRAMMING CONSIDERATIONS 

A, OTHER THAN THE REQUIREMENTS MENTIONED IN 3 REGARDING THE 
ORDER IN WHICH MODULES MUST BE REQUIRED, THESE DECNET DEC/Xll 
MODULES WILL BE COMPLETELY COMPATIBLE WITH THE DEC/Xll 
MONITORS AND ALL OTHER MODULES. THE ONLY OTHER EXECPTION IS 
THAT FOR A GIVEN COMMUNICATIONS DEVICE, THERE WILL NOW BE 2 
DIFFERENT DEC/Xll MODULES CAPABLE OF BEING RUN, THE OLDER 
MAINTANCE MODE TYPE REQUIRING NO CONNECTIONS TO THE 
COMMUNICATION DEVICE, AND THE NEW DECNET TYPE REQUIRING A 
COMPLETED COMMUNICATIONS PATH, IT WILL BE POSSIBLE (AND 
SOMETIMES DESIREABLE) TO CONFIGURE 2 DIFFERENT DEC/Xll 
MODULES IN ONE RUN TIME EXERCISER WHICH TEST THE SAME 
PHYSICAL DEVICE. IF THIS IS DONE, ONLY ONE OF THE 2 MODULES 
MAY BE SELECTED FOR THE SAME RUN, 



B. USING THESE DECNET DEC/Xll MODULES, IT IS POSSIBLE TO HAVE 
MANY NODES CONNECTED IN A NETWORK, ALL RUNNING DEC/Xll 
TOGETHER. ALL THESE EXERCISERS WOULD HAVE BEEN STARTED AT 
DIFFERENT TIMES. DUE TO DIFFERENT HARDWARE ON EACH SYSTEM, 
RUN TIMES AND END OF PASS TIMES MIGHT VARY CONSIDERABLY. 
THEREFORE IT IS NECCESSARY THAT THESE DECNET DEC/Xll MODULES 
BE EXTREMELY PATIENT AND HAVE A HIGH RETRY CAPABILITY IN ALL 
OPERATIONS. THIS HOWEVER, MEANS IT SOMETIMES MAY TAKE A LONG 
TIME (ON THE ORDER OF 10 MINUTES) BEFORE AN OPERATOR FINDS 
OUT A LINE IS DEFINITELY NOT RUNNING. 

C. DUE TO THE EXCESSIVE PROGRAMMING COMPLICATIONS AND LARGE 



* THESE ARE DESCRIBED IN THE DECNET DEC/Xll USER'S GUIDE. 
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BUFFERS REQUIRED TO RUN MANY LINES FROM ONE MODULE ALL AT THE 
SAME TIME, IT WAS DECIDED TO ONLY RUN 2 AT ANY ONE TIME, IF 
THE MODULE IS SET TO RUN 16 LINES, IT WILL RUN 1 PAIR FOR THE 
NUMBER OF TRANSFERS INDICATED BY LOCATION LPCNT, THEN IT WILL 
RUN A 2ND PAIR, THEN 3RD, ETC UP TO THE 8TH PAIR, IT WILL 
THEN REPORT AN END OF PASS AND GO BACK TO THE FIRST PAIR, 
THEN 2ND, ETC. THIS FORCES SOME CONSIDERATIONS TO BE MADE 
WHEN CONNECTING LINES TOGETHER SO THAT A LINE IN THE ACTIVE 
MODE IS NOT WAITING ON A LINE IN THE DORMANT MODE , PLEASE 
READ THE DECNET DEC/XU USER'S GUIDE, ESPECIALLY THE SECTION 
ON 2 LINES AT A TIME CONSIDERATIONS. 

D, THESE MODULES WILL, AS A GENERAL RULE, USE THE MINIMUM AMOUNT 
OF FEATURES OF A COMMUNICATION DEVICE REQUIRED TO SEND AND 
RECEIVE MESSAGES. THIS MEANS THAT CRC CALCULATING HARDWARE, 
CHARACTER RECOGNITION HARDWARE, ETC, WILL NOT BE USED. THESE 
FEATURES ARE FULLY TESTED BY STAND ALONE DIAGNOSTICS. 



6. OPERATING PROCEDURES 

A, THE MODULE IS CONFIGURED, LOADED, AND RUN AS SPECIFIED IN THE 
DEC/X11 REFERENCE GUIDE, 

B, CONSOLE SWITCHES ARE STANDARD FOR DEC/XU 

C, THE N1A? MODULE WILL SOLICIT FROM THE OPERATOR WHICH TYPE OF 
MESSAGE HE WANTS TO USE FOR DECNET ACTIVITY, THE OPTIONS 
INCLUDE; 

ALL ONES 
ALL ZEROS 

ALTERNATING ONES AND ZEROS 

A DIGIT (4 BIT) REPEATING COUNT PATTERN 

A PRECANNED ASCII MESSAGE 

USER SPECIFIED BY TYPING IN 

D, THE N2A? MODULE WILL MAKE ANY AUTOMATIC PHONE CONNECTIONS 
USING ANY DN-li'S PRESENT AND WILL REQUEST THE OPERATOR TO 
DIAL ALL MANUAL CONNECTIONS, ALL OPERATORS AT EACH NODE 
UNDER TEST MUST REACH THIS POINT BEFORE ANY ONE NODE 
CONTINUES INTO THE EXERCISING PHASE. 

E, THE N2A? MODULE WILL REQUEST A CARRIAGE RETURN WHEN THE 
OPERATOR WANTS TO BEGIN EXERCISING HIS NODE, 

F, THERE ARE MANY OPTIONS WHICH MAY BE ALTERED BEFORE RUN TIME, 
THEY INCLUDE: 



(1) LOCATION 164 IS A SWITCH WHICH INDICATES WHETHER OR NOT 

ALL ERRORS SHOULD BE REPORTED As THEY HAPPEN, IF 

LOCATION 164 IS NON-ZERO (EQUAL TO N), THEN ERRORS ARE 

TOTALLED (ON A LINE BY LINE BASIS); EVERY N PASSES THIS 
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TOTAL NUMBER OF ERRORS FOR THE PREVIOUS N PASSES WILL BE 
REPORTED. THE VALUE OF N IS THE VALUE OF LOCATION 164. 
THE MAXIMUM NUMBER OF ERRORS THAT CAN BE TALLEYED IS 256 
PER LINE. THEREFORE IF A LINE IS NOT KNOWN TO BE OF 
VERY GOOD QUALITY, THE VALUE OF LOCATION 164 TIMES THE 
VALUE OF LOCATION 166 SHOULD BE LESS THAN 128, 
(LOCATION 166 IS DEFINED NEXT.) THIS MEANS THE NUMBER OF 
MESSAGES PER PASS TIMES THE NUMBER OF PASSES PER SUMMARY 
REPORT SHOULD BE LESS THAN 128. IN THIS WAY, IF EVERY 
MESSAGE ATTEMPTED HAS AN ERROR ON BOTH TRANSMIT AND 
RECEIVE, THE ERROR TALLY WILL NOT OVERFLOW. IF THE LINE 
IS OF KNOWN GOOD QUALITY, THIS RESTRICTION MAY BE 
RELAXED. THE DEFAULT VALUE IS TO NOT REPORT TOTAL 
ERRORS. (LOC 164«0) OF COURSE DEC/XU KEEPS TOTALS FOR 
THE ENTIRE RUN, REGARDLESS. 

(2) LOCATION 166 INDICATES HOW MANY ITERATIONS SHOULD BE 
DONE BEFORE AN END OF PASS IS CALLED, AN ITERATION IS 
NORMALLY ONE TRANSMIT AND ONE RECEIVE, IN EITHER ORDER, 
THE DEFAULT VALUE IS 8. 

(3) LOCATION 170 IS A TIME SCALING FACTOR. THERE ARE MANY 
TIME OUT LOOPS IN THE MODULES, SOME SHOULD LOGICALLY BE 
LONGER THAN OTHERS, THE VALUE IN LOCATION 170 IS THE 
NUMBER OF SECONDS TO WAIT FOR THE SMALLEST TIME OUTS, 
SOME TIME OUTS WILL BE A MULTIPLE OF THIS FACTOR, 
DEFAULT IS 30 SECONDS. 

(4) LOCATION 172 IS AN ERROR TOLERATION LEVEL, ON A SINGLE 
MESSAGE BASIS, SO IF IN AN ATTEMPT TO DO ONE ITERATION 
(USUALLY A TRANSMIT THEN REClEVE OR VICE-VERSA) THE 
NUMBER OF ERRORS REACHES THE VALUE IN LOCATION 172, THAT 
LINE IS DROPPED FROM TESTING, IF BEFORE THIS LEVEL IS 
REACHED, AN ITERATION IS CORRECTLY COMPLETED, THEN THE 
ERROR COUNT WHICH IS COMPARED TO LOCATION 172 IS RESET 
TO ZERO. THE DEFAULT IS 10. 

(5) LOCATION 174 CONTAINS 2 IDENTICAL BYTES FOR USE AS SYNC 
CHARACTERS, THE DEFAULT IS 113226 WHICH Is 2 BYTES OF 
226. IF THIS IS CHANGED, BOTH BYTES MUST BE IDENTICAL 
TO EACH OTHER. THIS LOCATION IS A DON'T CARE FOR 
ASYNCHRONOUS DEVICES, BECAUSE THEY "SYNC" ON THE FIRST 
BYTE OF THE ACTUAL MESSAGE, NOT ON PRECEDING CHARACTERS 
AS SYNCHRONOUS DEVICES DO. 

(6) LOCATION 176 IS AN ADDRESS. IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN RECEIVE-ONLY MODE* HE SELECTS THE LINE 
FOR HALF DUPLEX, POlNT-TO-POlNT, SLAVE. (BIT 7 * 1, 
BITS 4,5, AND 6 = 0'S IN THE PHYSICAL LINE TABLE, SEE 
ITEM 6-F-9 BELOW). THEN PATCH THE LOCATION POINTED TO 
BY LOCATION 176 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
SLAVE BY THIS MODULE TO RUN IN RECEIVE ONLY MODE, THIS 
LOCATION MAY BE PATCHED BACK TO A 401 TO RESUME NORMAL 
REC-TMT TESTING. 
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(7) LOCATION 200 IS AN ADDRESS, IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN TRANSMIT-ONLY MODE, HE SELECTS THE 
LINE FOR HALF DUPLEX , POINT-TO-POINT, MASTER (BITS 7 AND 
5 = l'S, BITS 4 AND 6 s 0'S IN THE PHXSICAL-L INE TABLE. 
SEE ITEM 6-F-9 BELOW.) THEN PATCH THE LOCATION POINTED 
TO BY LOCATION 200 FROM A 401 TO A 240. THIS MILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
MASTER BY THIS MODULE TO RUN IN TRANSMIT ONLY MODE. THE 
LOCATION MAY BE PATCHED BACK TO 401 TO RESUME NORMAL 
TMT-REC TESTING. 



G. LOCATIONS DVA, VCT, BRl AND BR2 MUST BE SET TO PROPERLY MATCH 
THE FIRST DEVICE TO BE TESTED BY THIS MODULE, 



7, ERROR REPORTING 



A, ERRORS ARE EITHER TOTALLED AND PRINTED AS SUMMARIES ON A LINE 

BY LINE BASIS, OR THEY ARE PRINTED AS THEY OCCUR, SEE 

SECTION 6F1, THEY ARE 2 CLASSES OF ERRORS DATA ERRORS AND 
OTHER ERRORS, 



B. DATA ERRORS ARE ACTUALLY REPORTED BY THE N1A? MODULE BECAUSE 
THIS IS WHERE THE SHARED DATA COMPARE ERROR ROUTINE IS 
LOCATED, SO ALL DECNET DEC/X11 MODULE DATA COMPARE ERRORS 
LOOK LIKE THE STANDARD DEC/X11 DATA COMPARE ERROR MESSAGE 
EXCEPT t 

(1) THE MODULE NAME TYPED IS FFXX, WHERE FF IS FILLED IN TO 
BE THE NAME OF THE DECNET DEC/X11 MODULE WHICH CALLED 
THE N 1 A? MODULE TO DO THE COMPARE, IN OTHER WORDS FF 
REPRESENTS THE MODULE THAT "HAD" THE ERROR. 

(2) THE ERROR NUMBER IS A COUNT OF THE DATA COMpARE ERRORS 
IN THE CURRENT MESSAGE BEING CHECKED, IT IS THEREFORE 
RESET TO ZERO EVERY TIME A NEW MESSAGE IS TO BE CHECKED, 

(3) ACSR CONTAINS THE ADDRESS OF THE DECNET DEC/XH MODULE 
WHICH CALLED THIS ROUTINE TO HAVE ITS MESSAGE CHECKED. 

(4) SBADR CONTAINS THE LINE # OF THE DEVICE WHICH HAD THE 
DATA ERROR. 

(5) WASADR CONTAINS THE COUNT (IN OCTAL) OF WHICH CHARACTER 
IN THE MESSAGE THIS BAD CHARACTER WAS. 

(6) THE "SHOULD BE AND "*AS" ITEMS ARE; NORMAL, 



C. OTHER ERRORS ARE REPORTED USING THE NORMAL ERROR CALL IN 
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319 DEC/Xll CSRA AND ACSP ARE STANDARD. STATC CONTAINS A CODED 

320 

321 

322 ERROR NUMBER, WITH THE CODE BEING CONSISTENT IN ALL DECNET 

323 DEC/X11 MODULES. THE LOW ORDER 2 DIGITS OF STATC CONTAIN 

324 WHICH LINE HAD THE ERROR THE OTHER DIGITS CONTAIN THIS CODE: 
325 

326 0010XX REC TIME OUT 

327 0020XX TMT CLOCK LOSS 

328 0030XX HEADER CRC ERROR 

329 0040XX MSG CRC ERROR 

330 0050XX TMT TIME OUT 

331 0060XX TMT NON-EXISTENT MEMORY 

332 0070XX TMT LATENCY 

333 0100XX REC DATA PARITY ERROR 

334 0110XX REC NON-EXISTENT MEMORY 

335 0120XX REC CLOCK LOSS 

336 0200XX REC FRAMING ERROR 

337 0400XX REC OVERRUN OR LATENCY ERROR 
338 

339 THIS METHOD SHOULD ELIMINATE THE CONSTANT NEED FOR HAVING A 

340 LISTING ON HAND TO DECIDE WHAT THE ERRORS WHERE. THE FIRST 

341 TIME THE RUN TIME EXERCISER IS RUN AFTER LOADING, THE N 1 A? 

342 MODULE WILL TYPE THIS ERROR CODE LIST OUT TO THE SYSTEM 

343 CONSOLE FOR THE OPERATORS SUBSEQUENT USE. 
344 

345 

346 D, ALL ERRORS HAVE A RETRY LIMIT (SEE SECTION 6F4) WHICH CAN BE 

347 MODIFIED. 
348 

349 

350 E. ON POWER-FAIL, POWER-UP CONDITIONS/ DECNET DEC/X11 MODULES 

351 WILL DROP THEMSELVES. THIS IS DONE BECAUSE THE PHONE 

352 CONNECTIONS WILL HAVE BEEN LOST AND OPERATOR INTERVENTION 

353 WILL BE REQUIRED. 
354 

355 
356 

357 8, TEST SEQUENCE 

358 

359 LINES ARE TESTED PY PAIRS IN SEQUENTIAL ORDER. THIS ORDER MAY BE 

360 MODIFIED BY MODIFYING THE PHYSICAL LINE TABLE. (SEE DECNET 

361 DEC/XU USER'R GUIDE). THERE ARE SEVERAL TESTING OPTIONS WITH 

362 SLIGHTLY DIFFERENT FUNCTIONS MAKING UP AN ITERATION: 
363 

364 

365 A, POINT-TO-POINT SLAVE. IN THIS CASE THE LINE WAITS TO RECEIVE 

366 A MESSAGE, WHEN IT DOES, IT CHECKS IT, AND THEN TRANSMITS A 

367 MESSAGE BACK. IT WILL REpORT ERRORS ON EXCESSIVE WAITS. 
368 

369 

370 B. POINT-TO-POINT MASTER, IN THIS CASE THE LINE SENDS A MESSAGE 

371 AND WAITS TO RECEIVE ONE IN RETURN. IT THEN CHECKS THE 

372 RECEIVED MESSAGE. IF IT TIMES-OUT, IT TRANSMITS AGAIN, IT 

373 WILL CONTINUE TO TIME OUT AND RE-TRANSMIT UNTIL EITHER A 

374 MESSAGE IS RECEIVED, OR IT TIMES OUT COUNT EQUALS LOCATION 
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172, THE ERROR TOLERATION LEVEL. (SEE SECTION bF4). IT WILL 
THEN REPORT AN ERROR AND BEGIN AGAIN. AFTER THE NUMBER OF 



CONSECUTIVE Tl^E-OUT ERRORS REPORTED EQUALS LOCATION 172, THE 
LINE WILL BE DROPPED. 



C, POINT-TO-POINT SLAVE RECEIVE ONLY. IN THIS MODE THE LINE 
WAITS ONLY TO RECEIVE, CHECKS THE MESSAGE, AND WAITS TO 
RECEIVE AGAIN. 



D. POINT-TO-POINT MASTER-TRANSMIT ONLY, IN THIS MODE THE LINE 
JUST TRANSMITS AND THEN TRANSMITS AGAIN , ETC . 



E. MULTl-DROp MASTER, IN THIS MODE, THE LINE WILL SEND A DDCMp 
MESSAGE OUT FOR THE ADDRESS CONTAINED IN THE MULTI-DROP MENU 
TABLE, WAIT TO RECEIVE A MESSAGE BACK, AND THEN CHECK THE 
DATA. 

# NOT YET IMPLEMENTED 



F, MULTI-DROP SLAVE. IN THIS MODE, THE LINE WILL WAIT FOR A 
MESSAGE WITH THE MATCHING ADDRESS . THEN IT WILL TRANSMIT A 
MESSAGE. 

« NOT YET IMPLEMENTED 



G, THESE BASIC ITERATIONS ARE REPEATED UP TO THE NUMBER OF TIMES 
IN LOCATION 166, (SEE SECTION 6F2) FOR EACH LINE SELECTED 
FOR TEST, AND THE END-OF-PASS IS DECLARED. 



9. PASS TIMES 



PASS TIMES ARE EXTREMELY CONFIGURATION DEPENDENT. DIFFERENT BAUD 
RATES, MESSAGE SIZES, AND TESTING MODES ALL GREATLY AFFECT 
THE PASS TIME. BELOW ARE SOME BALL PARK TIMES, BUT ANY ONE 
SYSTEM COULD VARY TREMENDOUSLY FROM THESE i 

-RUNNING ALONE, 1 LINE ON AN 11/05 AT 9600 BAUD, HALF DUPLEX, 
POINT-TO-POINT, WITH A 512 CHARACTER MESSAGE, TAKES 15 
SECONDS. 



NOTE 1 AT VARIOUS MONITOR CALLS THROUGHOUT THIS MODULE, IT IS LIKELY THAT 
WHEN 2 LINES ARE RUNNING, A MONITOR CALL CAN BE MADE AND BEFORE CONTORL IS 
RETURNED TO THE MODULE, THE OTHER LINE MAY CAUSE THE EXACT SAME CALL TO BE 
MADE, IN FACT, WHEN RUNNING 2 LINES FULL DUPLEX, IT MAY BE POSSIBLE TO HAVE 
4 CALLS TO THE MONItOr FrOM ONE SPOT IN THE. MODULE, BEFORE THE FIRST CALL Is 
RETURNED FROM, THIS IS WHY AT SUCH CALLS, THE CODE SETS COUNTERS 
BFFORE DOING CALLS, SO THAT WHEN I T Is RETURNED tO, It CAN KEEp WHICH 
LINE DID WHAT STRAIGHT. 
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NOTE 2 WHEN RUNNING 2 DQ'S OUT OF THE SAME MODULE WHICH ARE CONNECTED 
TO EACH OTHER* THE LOW ORDER (PER ORDER OF DVC, LOCATION 14) ONE 
SHOULD BE SLAVE, THE HIGHER ORDER ONE SHOULD BE MASTER. FURTHERMORE , 
IF DOING THTS IN FULL DUPLEX, THE TIMEOUT CONSTANT (LOCATION 170) 
SHOULD BE MOD * ED FROM 36 TO 5 SECONDS. (IN OCTAL) 
% 
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NQAA. Pi i 










439 


000000' 






IOMOD 


CNQAA >, 1,4,5,5 


440 


•00000' 






MODULf: 


140000, NQAA ,1,4,5,5, 


441 








•TITLE 


NQAA OEC/Xtl SYSTEM EXERCISER MODULE 


442 






; 


DOXCOM 


VERSION 4 9/6/75 


443 








.LIST 


BIN 


444 






;•*»»*•#•«#•#«##*»«»#»•#*»##••#••»«••»»«»»♦••••»******•»**•*•**•****••* 


445 


000000' 




BEGIN i 






446 


030000' 


059516 04050! 


340 HODNAMt 


.ASCII 


/MQAA / ; MODULE NAME. 


447 


000005' 


000 


XFLAG: 


• BYTE 


OPEN jUSED TO KEEP TRACK Of WBur" USAGE 


448 


000006* 


000001 


ADDPl 


1 +0 


j 1ST DEVICE ADDR, 


449 


000010* 


000004 


VECTOR! 


440 


;1ST DEVICE VECTOR. 


450 


900012' 


240 


BR1 1 


.BYTE 


PRTY5+0 '1ST BR LEVEL. 


451 


900013* 


240 


SR2; 


.BYTE 


PRTYSfo 5 2ND BR LEVEL, 


452 


000014* 


000001 


DVID1 1 


+ 1 


;DEVICE INDICATOR 1. 


453 
454 


00001b* 


000000 


SRI: 


OPEN 


;SMITCH REGISTER 1 


455 


900020' 


1 40000 


STAT: 


140000 


•STATUS WORD. 


4S6 


000022' 


000332' 


iNlTt 


START 


; MODULE START ADDR. 


457 


030024' 


000164* 


SPOINTt 


MODSP 


; MODULE STACK POINTER. 


458 


000026' 


000000 


PASCNTt 





;PASS COUNTER. 


459 


000030' 


000000 


ERRCNTl 





; ERROR COUNTER. 


460 


000037' 


000000 


SVR0: 


OPEN 


;LOC TO SAVE R0. 


461 


000034* 


000000 


SVRl: 


OPEN 


;LOC TO SAVE Rl. 


462 


000036* 


000000 


SVR2: 


OPEN 


f LOC TO SAVE R2. 


463 


000040* 


000000 


SVR3t 


OPEN 


jLOC TO SAVE R3. 


464 


000042* 


000000 


SVR4» 


OPEN 


jLOC TO SAVE R4. 


465 


000044* 


000000 


SVR5I 


OPEN 


;LOC TO SAVE R5. 


466 


000046' 


000003 


SVR6! 


OPEN 


;LOC TO SAVE R6. 


467 


000050* 


000000 


CSRAt 


OPEN 


; ADDR OF CURRENT CSR. 


468 


•00052* 




SBADR; 




j ADDR OF GOOD DATA, OR 


469 


000052* 


000000 


ACSR: 


OPEN 


iCONTENTS OF CSR. 


470 


000054* 




WASADRI 




; ADDR OF BAD DATA, OR 


471 


000054' 


000003 


ASTATl 


OPEN 


{STATUS REG CONTENTS. 


472 


000056* 


000000 


ASB : 


OPEN 


; EXPECTED DATA. 


473 


000060' 


000000 


AWASl 


OPEN 


; ACTUAL DATA. 


474 


000062' 


090662' 


RSTRTj 


RESTRT 


j RESTART ADDRESS AFTER END OF PASS 


475 








.REPT 


SPSIZ } MODULE STACK STARTS HERE. 


476 








.NLIST 




477 








.WORD 





478 








.LIST 




479 








.ENDR 




480 


000164* 




NODSPt 






481 
482 








.GLOBL 


WAIT, TIME, HSGSIZ, CKMSG, CRCMSG, MSGHED, MSG, PWRCNT 


483 
484 






J 


.GLOBL 


DEVSET 


485 


000 16 4 


003003 


REPORT! 





1 FLAG, IF *f, THEN ERRORS ON RECEIVED MSG'S 


487 










I ARE TOTALLED AND PRINTED EVERY t PASSES 


488 










1 IF »0, ERRORS ARE ALL REPORTED AS THEY HAPPEN. 


489 


000166* 


890010 


LPCNT: 


10 


f ITERATIONS PER END PASS CALL 


490 


303573' 


909036 




39, 


I TIME OUT FACTOR, IN SECONDS 


491 


000172' 


000012 


ERRIiVll 


10. 


(NUMBER OF ERRORS TOLERATED 


492 


000174' 


113226 


SYNC: 


113226 


1 2 BYTES OF STNC CHARACTER 


493 


000176' 


001 310* 




ONEREC 


; ADDRESS OF WHERE 240 GOES 


494 


000200' 


001606' 




ONETNT 


(ADDRESS OF WHERE 240 GOES 
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495 
496 
497 
493 
499 



000202* 000000 

000204' 000000 

000206' 900000 

000210' 030003 



SPARE1 : 

SPARE2* 

SPARE3 i 

SPARE4I 



501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 

532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
5 46 
547 
548 
549 
550 



J 

; PHYSICAL LINE TABLE. BYTE CONTAINS THE PHYSICAL 
; LINE ( FOR THE FIRST LINE TO BE RUN . BYTE 1 WILL BE 
;THE PHYSICAL LINE RUN SECOND, ETC. 

( EACH BYTE IN THE TABLE HAS THE FOLLOWING BIT MEANINGS : 



000212' 
000213' 
000714' 
000215' 
000216* 
000217* 
000220' 
000221 ' 
000222' 
000223' 
000224' 
000225' 
000226* 
000227* 
000230' 
000231 ' 



000232' 
00023 3' 
900234' 
000235' 
0002 36' 
000237' 
000243' 
000241' 
000242' 
000243' 
000244' 
030245' 
000246* 
000247* 
000250* 
000251' 



093 
001 
002 
003 
004 
005 
006 
007 
019 
011 
012 
013 
014 
015 
016 
017 



000 
003 
003 
003 
009 
000 
000 
003 
000 
000 
009 
000 
000 
009 
000 
000 



(BIT 0-3 
(BIT 4 
•BIT 5 
(BIT 6 
(BIT 7 
PHYTABl 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



PHYSICAL LINE 
FOR POINT-TO POINT, 1 FOR MULTI-DROP 
FOR SLAVE, 1 FOR MASTER (DERIVED FROM SRI) 
FOR HALF DUPLEX, 1 FOR FULL 
DO NOT TEST, 1 TEST (DERIVED FROM DVID1) 

1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 



EpRTAB , KEEPS TRACK OF RETRY ERROR COUNTS FOR 



ERRTA8: .BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
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SEQ 0071 



551 






JECOUNT TABLE KEEPS 


TRACK OF t OF BAD MSG'S 


552 


000252* 


000 


ECOUNT! .BYTE 







553 


03025 3' 


000 


.BYTE 







554 


000254' 


000 


.BYTE 







555 


000255* 


000 


.BYTE 







556 


000256' 


090 


.BYTE 







557 


000257* 


000 


.BYTE 







558 


000260* 


000 


.BYTE 







559 


000261 ' 


000 


.BYTE 







560 


000262' 


«00 


.BYTE 







561 


000263' 


000 


.BITE 







562 


000264' 


000 


.BYTE 







563 


000265* 


000 


.BYTE 







564 


000266 * 


000 


.BYTE 







565 


000267 ' 


000 


. BYTE 







566 


000270 * 


000 


.BYTE 







567 


000271 ' 


000 


.BYTE 


e 




568 












569 












570 






;m.ulti-drop station 


ADDRESS TABLE 


571 






J BYTE IS THE 


MULTI 


•DROP STATION ADDRESS 


572 






jFOR LOGICAL LINE 0, 


BYTE 1 IS FOR LOGICAL LINE 1 


573 






J THIS ENTRY ONLY HAS 


MEANING IF CORRESPONDING 


574 






; BYTE IN PHYSICAL LINE TABLE HAS BITS 4 AND 7 SET 


575 






f and bit 5 off 


, IE MULTI-DROP SLAVE TO BE TESTED 


576 


000272' 


000 


MDATAB: .BYTE 







577 


00027 3' 


001 


.BYTE 


1 




578 


000274' 


002 


.BYTE 


2 




579 


000275* 


e03 


.BYTE 


3 




580 


000276* 


004 


.BYTE 


4 




581 


000277' 


005 


.BYTE 


5 




582 


000300* 


006 


.BYTE 


6 




583 


000301 * 


007 


.BYTE 


7 




584 


000302* 


010 


.BYTE 


10 




585 


000303' 


01 1 


.BYTE 


11 




586 


000304' 


012 


.BYTE 


12 




587 


000305* 


01 3 


.BYTE 


13 




588 


000306' 


014 


.BYTE 


14 




589 


000307* 


015 


. BYTE 


15 




590 


000310* 


016 


.BYTE 


16 




591 


000311 * 


017 


.BYTE 


17 




592 












593 






;HULTI-DR0p STATION 


ADDRESS MENU TABLE 


594 






,-THIS TABLE INDICATES TO ANY LINE RUNNING AS 


595 






J MULTI-DROP MASTER, 


WHICH STATION ADDRESS TO 


596 






; ATTEMPT TO EXERCISE 


ON THE MULTI-DROP LINE 


597 






;IT ALLOWS UP 


ro 15 


DIFFERENT STATIONS TO BE 


598 






; TESTED ON A LINE. 


EACH BYTE WHICH IS NOTa-1 


599 






; INDICATES A STATION 


ADDRESS TO BE TESTED. EACH 


600 






J STATION IS TESTED, 


BY THE ORDER OF THE TABLE, 


601 






jUNTIL THE FIRST OCCURANCE OF A -1 (BINARY 111111 


602 






! 






603 


000312' 


J77 


MDMTABI .byte 


-1 




604 


000313' 


377 


.BYTE 


-I 




605 


000314' 


377 


.BYTE 


-1 




606 


030315* 


377 


.BYTE 


-1 
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607 


000316' 










.BYTE 






608 


000317* 










.BYTE 






6k>9 


000320' 










.BYTE 






610 


000321 ' 










.BYTE 






611 


«t30322' 










.BYTE 






612 


00032 3' 










.BYTE 






613 


000324' 










.BYTE 






614 


000325* 










.BYTE 






615 


000326* 










.BYTE 






616 


000327* 










.BYTE 






617 


0*0330' 










.BYTE 






618 


000331' 










.BYTE 






619 


















€, 2ff 
621 


















622 


000332' 


016703 


177456 




START' 


MOV 


DVID1,R0 


jGET DEVICES TO BE TESTED 


623 


0003 3b* 


0i)1002 








SHE 


It 


; AN Y ACTIVE? 


624 


00034(1' 


104403 


000000' 






END* ,BEGIN 


I 


625 


000344' 


012705 


000000 ' 




IS: 


MOV 


•BEGIN, R5 


; PREPARE FOR NXT JSR 


626 


000350* 


0>*4567 


000000G 






JSR 


R5 ,DEVSET 


jGO ASK FOR PARAMETERS 


627 


000354' 


012767 


000200 


004364 




MOV 


1200, MASK 


j SET UP MASK 


628 


000362' 


012701 


000232' 




23! 


MOV 


•PHYTAB+16. » Rl 


; GET END OF DEVICE TABLE 


629 


000366' 


006 300 






3t: 


ASL 


R0 


;CHECK EACH BIT 


630 


•00370* 


103003 








BCC 


49 


jBR IF NOT ON 


631 


000372* 


156741 


004350 






BISB 


MASK,-(R1) 


{SET THIS LINE ACTIVE 


632 


000376* 


000402 








BR 


5$ 




633 


000400* 


1 46741 


004342 




41 : 


BICB 


HASK,-(R1) 


jCLEAR THIS LINE 


634 


000404* 


105061 


000040 




51: 


CLRB 


32. (Rl) 


;CLEAR ECOUNT TABLE 


635 


000410* 


020127 


000211* 






CMP 


R1,IPHYTAB-1 


jDONET 


636 


000414' 


001364 








BNE 


3S 


;BR IF NOT 


637 


000416* 


026727 


004324 


000040 




CMP 


MASK, 140 


jBEEN HERE BEFORE? 


638 


000424* 


001406 








BEO 


6t 


J BR IF YES 


639 


000426* 


012767 


000040 


004H2 




MOV 


M0.MASK 


•SET UP MASK 


640 


0004 34' 


016700 


177356 






MOV 


SR1,R0 


;GET SLAVE/MASTER INFO 


641 


000440' 


000750 








BR 


2* 


}G0 SET UP 


642 


000442' 


005201 






6$: 


INC 


Rl 


;GET PHYTAB ADDR 


643 


000444* 


016700 


177336 






MOV 


ADDR, R0 


j GET DEVICE ADDR 


644 


000450' 


135721 






71: 


TSTB 


(Rl) + 


jDEVICE ACTIVE? 


645 


000452' 


1 00054 








BPL 


101 


;BR IF NOT 


646 


000454* 


012760 


001000 


000002 




MOV 


•1000, 2(R0) 


;SET DATA TERM READY 


647 


000462' 


005060 


000004 






CLK 


4(R0) 


jCLR ERR REGISTER 


648 


000466' 


012702 


000017 






MOV 


#17, P2 jSET UP 


TO CLEAR 16 SEC. REGS 


649 


000472' 


1 10260 


000005 




8s: 


MOVB 


R2,5(R0) 


jSET SEC. REG. PTR 


650 


000476' 


052760 


010000 


000004 




BIS 


•10000, 4(R0) 


; ENABLE EA BIT WRITING 


651 


000504' 


042760 


060000 


000004 




BIC 


•60000, 4(R0) 


(CLEAR EA BITS 


652 


000512' 


012760 


000000 


000006 




MOV 


» 0,6(R0) 


jCLR ENTRY 


653 


000520' 


005302 








DEC 


R2 


jPOINT TO NXT REG. 


654 


000522* 


002363 








BGE 


88 


(BR BACK TILL DONE 


655 


000524' 


1 12760 


000017 


000001 




MOVB 


»17,1(R0) 


[POINT TO CHAR DET REGS 


656 


000532' 


1 32760 


000017 


000001 




BITB 


•17,1(R0) 


;IS THERE A OQ-RB OPTION? 


657 


000540' 


001421 








BEO 


10S 


; BR IF NOT (»17 BITS WON'T 


658 


000542' 


012733 


000017 






MOV 


•17, R3 


;SET UP A COUNT RtG 


659 


000546' 


1 12760 


000030 


000ii)05 


9s: 


MOVB 


•30,5(R0) 


; SELECT SEC PEG 10 


660 


000554* 


005060 


000006 






CLR 


6(R0) 


; CLEAR AN ENTRY 


661 


000560* 


112760 


000034 


0*0005 




MOVB 


I34.5CR0) 


; SELECT SEC REG I i 


662 


H00"566* 


005060 








CLR 


6(P0) 


jCLEAP AN E"TRt 
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SEO 0073 



663 


000572' 


005303 






DEC 


R3 


; DONE ENOUGH? 


66 4 


000574' 


002403 






BLT 


10$ 


{BR OUT IF YES 


665 


000576' 


105360 


000001 




DECB 


1(R0) 


; ELSE POINT TO NEXT PAIR 


666 


000602' 


000761 






BR 


9$ 


) AN GO CLEAR 


667 


#00604' 


862700 


000010 


!»$ : 


ADD 


!10 f R0 


; BUMP R0 


668 


900610' 


020127 


000232' 




CMP 


Kl,tPHYTAB+16. 


{DONE? 


669 


•00614' 


001315 






BNE 


7« 


{BK IF NOT 


670 


000616' 


005067 


004122 


US! 


CLR 


MSGCNT 


:COUNTS WHEN TO DO SUMMARY 


671 


9006 2 2 


012701 


000005 




MOV 


55. RS 


j SET SYNC FIELD IN FRONT OF MSG 


672 


000626 ' 


01 2702 


000000G 






f HSGHED, R2 


a TO 10 Oil to VT OlrlL L 11 An O 


673 


000632* 


016742 


177336 


12S: 


MOV 


SYNC-CR2) 


; WRITE 2 SYNC CHAR'S 


674 


000636' 


005301 






DEC 


Rl 


{COUNT IT 


675 




091 3 7 4 






BNE 


12$ 


jBK BACK IF NOT DONE 


676 


000642' 


005767 


000000G 


131: 


TST 


WAIT 


•LINES SET UP? 


677 


000646' 


001405 






BEQ 


RE5TRT 


; BR IT YES 

j TEMPORARY RETURN TO MONITOR.... 


678 


000650' 


104407 


000000' 




BREAKS i 


, BEGIN 


679 


000654' 


104407 


000000' 




BREAK! , 


i BEGIN 


• THEN CONTINUE AT NEXT INSTRUCTION. 


680 


000660* 


000770 






BR 


13t 


jWAIT TILL WAIT IS CLEARED BY NET2 



681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
7til 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 



000667' 
000666' 
000673' 
000674* 
000676' 
000702' 
000706' 
•00712* 
P00716' 
000722' 
0007 2b* 
000732' 
000736' 
000742' 
000746' 
000752 ' 
000756' 
000762' 
000766' 

000772* 
000776' 
001002' 
001010* 
001014' 
001022' 
001024' 
001030' 
001034' 



005767 
001402 
104403 
005004 
016706 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
065067 
005067 
005067 
005067 

005067 
005067 
012767 
005067 
026727 
001444 
016700 
010064 
105060 



1 

; 

JTHROuGH-OUT THE PROGRAM MANY LOCATIONS ARE REFERENCED 

•OFF OF (R4). THIS IS A MEANS OF KEEPING TWO SETS OF 

; VARIABLES, ONE FOR EACH OF THE ACTIVE LINES. 

;R4 ALWAYS CONTAINS A IF THE PROGRAM IS CURRENTLY 

{REFERENCING LINE OR A 2 IF IT IS REFERENCING 

{ LINE 1. 



000000* 

177122 
004216 
004214 
004212 
004210 
004206 
004204 
004202 
004200 
004176 
004174 
S04i~2 
004170 
004166 
004164 

004124 
0041 16 

000212' 003740 
003776 

003730 000232' 

003720 

005020' 

000020 



RESTRT' TST 
BEO 

ends 

1$: CLR 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 

CLR 
CLR 
MOV 
CLR 

GETNXTI CUP 
BEO 
MOV 
MOV 
CLRB 



;HAS THERE BEEN A POWER FAIL? 
{CONTINUE IF NOT, 

|fIRST ACTIVE LINE 

jINIT STACK 

;CLEAR ALL EXIT FLAGS 



PWRCNT 
IS 

, BEGIN 
R4 

SPOINT, R6 
DR0PR4 
DROPR4+2 
DTERR4 
DTEPR4*2 
CRCR4 
CRCR4+2 
RCT0R4 
RCTOR4+2 
TXT0R4 
TXT0R4+2 
FDSKM 
FDBKR4+2 
CHKR4 
CHKR4+2 



PASTIM {CLR PASS TIME FLAG 

BRKFLG ;CLR FLAG THAT SaYS WE'RE IN BREAK 

IPHYTAB.NXTLIN ;POlNTS TO NEXT LINE TO TEST 

LINACT j SHOW NO LINES ACTIVE 

NXTLIN* tPHYTAB+16, iDONE ALL LINES? 

DONE {BR IF SO 

NXTLIN, R0 j GET AODR OF NEXT LINE 

R0,CURLI»(R4) jSAVC IT 

20(R0) ;CLEAR RETRY COUNT FOR THIS LINE 
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719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 



001040' 


005267 


003704 






INC 


NXTLIN 


{BUMP FOR NEXT TIME 


001044' 


1 1 1000 








MOVB 


(R0),R0 


; GET PHYSICAL LINE BYTE 


001046' 


002362 








BGE 


GETNXT 


; BR BACK IF BIT 7 NOT ON 


001050' 


016701 


176732 






MOV 


ADDR.Rl 


;SET UP TO CALC ADDR 


001054* 


004767 


004106 






JSR 


PCGETADP 


;G0 CALC ADDR 


901063' 


£10164 


304752* 






MOV 


Rl ,DVASA VCR4 ) 


•SAVE PVA FOR THIS LINE 


001064' 


062701 


000002 






ADD 


12, Rl 


;POINT TO THT CSR 


001070' 


010164 


004762' 






MOV 


R1,TMT8AV(R4) 


;SAVE VALUE 


001074' 


016701 


176710 






MOV 


VECTOR, Rl 


{SET UP TO CALC VECTOR ADDR 


001100* 


004767 


004062 






JSR 


PCGETADR 


;G0 CALC 


001104' 


010164 


004756* 






MOV 


R1,VCTSAV(R4) 


;SAVE IT 


031 1 10' 


005267 


003676 






INC 


LINACT 


;SHOW A LINE'S RUNNING 


001114' 


005064 


005034' 






CLR 


LO0P(R4) 


{CLEAR ITERATION COUNT 


001120' 


005064 


005114' 






CLR 


RCVTO(M) 


;CLR REC TIME OUT COUNT 


001124" 


032700 


000020 






BIT 


I20.R0 


{MULTI DROP OR NOT? 


001130* 


001377 








BNE 


MD 


{BR IF IT IS 


001132' 


000427 








BR 


PP 


;BP IF NOT TO P TO P 


001134' 


005767 


003652 




; 

done: 


TST 


LINACT 


•ANY LINES RUNNING? 


001 140' 


001402 








BEQ 


IS 


JBR IF NO 


001142' 


000167 


003302 






JMP 


TIMCHK 


;IF YES GO CHECK FOR TIME OUT 


001146' 


012701 


000212' 




1$: 


MOV 


I PHYTABrRl 


jMUST CHECK IF MAYBE ALL LINES DROPPED 


001 152' 


105721 






21: 


TSTB 


(Rl) + 


;IS THIS LINE STILL SELECTED? 


001154* 


100405 








BMI 


3S 


;BR OUT IF YES 


001156* 


022701 


000232' 






CMP 


IPHYTAB+ 1 6 . » Rl 


{CHECKED ALL 16? 


001162* 


001373 








BNE 


2S 


;BR BACK IF NO 


001164' 


104403 


000000' 






ENDS, BEGIN 


; 


001 17d* 


012767 


000001 


003724 


3t: 


MOV 


•1, PASTIM 


{ SHOW IT IS TIME FOR ENDPAS 
















;FOR BREAK LOOP 


001 17o' 


005767 


003716 






TST 


BRKFLG 


; ARE WE IN A BREAK LOOP? 


001202' 


001002 








BNE 


4S 


jBR IF WE ARE 


001204' 


000167 


003354 






JMP 


EPASS 


;G0 DO END OF PASS 


001210' 








t 

4SI 








m j 2 1 a » 


1 04400 








EXITS 




•EXIT TO MONITOR. MOniJLF. W»IT FOR TNTFRUPT 










;POINT 


TO POINT 






001212' 


012764 


000001 


005110' 


PPi 


MOV 


• 1 » FDFLAG(R4) 


;SAY WERE FULL DUPLEX 


001220* 


032700 


000100 






BIT 


1100, R0 


; HALF OR FULL DUPLEX? 


001224' 


001402 








BEO 


IS 


•BR IF HALF 


00122b* 


000167 


000466 






JMP 


PPFD 


;JMP TO FULL DUPLEX ROUTINE 


001232' 


005064 


0051 10' 




1SI 


CLR 


FDFLAG(R4) 


{CORRECT FLAG CAUSE WERE NOT FD 


001236' 


032700 


000040 






BIT 


I40.R0 


{ SLAVE OR MASTER? 


001242' 


031135 








BNE 


PPHDH 


{BR IF MASTER 










;POINT 


TO POINT, 


p HALF DUPLEX, 


SLAVE 


001244' 








PPHDSt 








001244' 


016464 


004766' 


004772' 




HOV 


AHSGBF(R4),PECADR(R4) ) SET UP INPUT AREA 


001252' 


016764 


000000G 


004776' 




HOV 


MSGSIZ,RECCNT(R4) {SET UP COUNT 


001260' 


062764 


000012 


004776' 




ADD 


f 12,RECCNT(R4) 


{CORRECT FOP HEADER AND CRC 


001266' 


016764 


176676 


005002* 




MOV 


TIHELN, RECTI M(R4) { HOW LONG TO WAIT 


001274' 


066764 


176670 


005002' 




ADD 


TIMELN, RECTI" ( R4) {DOUBLE IT 


001302' 


004767 


000726 






JSR 


PCREC 


{GO RECEIVE DATA 


001306' 


000456 








BR 


FERR 


•BR TO ERROR ROUTINE 


001310' 


000401 






ONERFCt 


BR 


IS 


; MAKE THIS A NOP»240 TO 
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SEQ 007$ 



775 


001 31 2 ' 


000424 






776 


•01314 ' 


PI 2764 


000000G 


005044 ' 


777 


("91322* 


•16764 


000000G 


005054 ' 


778 


•01330' 


062764 


00001 2 


005054' 


779 


•0133b* 


004767 


002700 




780 


•01 342' 


01 6764 


176622 


005064 * 


781 


•01 350* 


004767 


002054 




782 


•01 354' 


000425 






783 


001 356 ' 


042774 


000400 


004762 " 


784 


•Ml 364' 


005264 


005034 ' 




785 


•01370' 


026764 


1 76572 


005034 * 


786 


•01376' 


003322 






787 


00140k'* 


005 367 


003406 




788 


•01 404 ' 


016403 


004752 * 




789 


091 410' 


00501 3 






790 


Ml 41 2 * 


042763 


00047 1 


000002 


791 


•01 420' 


005063 


000004 




792 


001 42 4 ' 


000167 


177364 




793 










794 










795 


001 43fl* 


042774 


000400 


004762' 


796 


•01436' 


012703 


177777 




797 


•41442' 


000401 






798 


•01444' 


005003 






799 


•01 446' 


016401 


005020' 




800 


001452' 


1 05261 


000020 




801 


•01456' 


1 26167 


000020 


1 76506 


802 


•01464' 


002003 






803 


•01 466' 


005703 






804 


•01 470* 


•01707 






805 


•01472' 


000734 






806 


•01 474* 


1 4271 1 


000200 




807 


•01500' 


005264 


005124' 




808 


001 504 ' 


1 0441 1 


011 306 * 


000000 ' 


809 


001512' 


005767 


003406 




810 


001516' 


001402 






811 


•01520' 


005004 






812 


•01522' 


000402 






81 3 


001524' 


01 2704 


000002 




814 


•01530' 


005 364 


005124' 




815 


•01 534 ' 


900721 






816 










817 










818 










819 










820 


•01536' 








821 


•01536' 


012764 


000000G 


005044' 


822 


£01544' 


016764 


000000G 


005054' 


823 


•01552' 


062764 


000012 


00505 4 * 


824 


•01560' 


004767 


002456 




825 


•31564' 


016764 


176400 


005064' 


826 


001572' 


004767 


001632 




827 


•01576' 


000434 






828 


001603' 


042774 


000400 


•04762" 


829 


•01606' 


[■30401 






8 30 













BR 


PPHDS2 


1 1 1 


MOV 


•MSGHED, TXADRKR 










ADD 


l 1 •> TYPMT1 fRAI 




JSR 








TlHEbHi I 




JSR 








depr*"" 




BIC 


«A*ia ItVTKlVf fill 


PPHDS2 t 


INC 


T DAD fall 




CMP 






BGT 


PPHDS 


LNDONE I 








MOV 


DVASAV(M),P3 




CLR 


( R3 ) 




r?p 


41 4 "I • if Bit 






4(1*3 ) 




TMD 


GETNXT 


derr: 


BIC 






MOV 






BR 




FERRt 


CLR 


R3 


FERR1 | 


MOV 


CUftLlN ( P4 ) f Ri 




INCB 






CMPB 






BGE 


DROP 




TST 


R3 




BEG 


ONEREC 




BR 


PPHPS2 


DROP: 


BICB 


1 200* ( Rl ) 




INC 


DROPR4 C R4 ) 




MSGNf 


ADROPf BEGIN 




TST 


DROPR4 




BEO 


18 




CLR 


R4 




BR 


2» 


1(1 


MOV 


• 2#P* 


2si 


DEC 


DR0PR4CR4) 




BR 


LNDONE 



;D0 ONE-WAY-IN CR". ONLY ) 

I GET HESS ADR 
, | GET MSG SIZE 
jCORRf-CT FOR HEADER AND CRC'S 
;G0 GET CLEAR TO SEND 
) ;GIVE "EM 1/2 MINUTE 

;G0 TRANSMIT 
•BR TO ERROR ROUTINE 

jKILL REO TO SEND 
jCOUNT AN ITERATION 
; DONE ENOUGH 1 
;NO, GO DO ANOTHER TIME 

;CET DEVICE ADDRESS 

j KILL RECEIVER SIDE 
) KILL TMT SIDE 
; KILL TRANSMITTER TOO 
? YES DO NEXT LINE 



(KILL REQ TO SEND 
;SET FLAG FOR WHICH RETURN 

;SET FLAG FOR WHICH RETURN 
; GET LINE I ADDR 
jCOUNT AN ERROR 
;T00 MANX ERRORS? 
; BR IF YES 

jDO A TMT OR DO A REC? 
jBR IF TMT 
;GO TRY AGAIN 
•DROP THE LINE FROM TEST 
jSEE NOTE 1 IN FRONT OF LISTING 
;ASCII MESSAGE CALL WITH COMMON HEADLR 



•POINT TO POINT HALF DUPLEX MASTER 



PPHDMl 

MOV 
MOV 
ADD 
JSR 
MOV 
JSR 
BR 
BIC 
ONETMf: BR 



INSGHED>TXADR1(R4) 
MSGSIZ,TXCNT1(R4) 
I12.TXCWTKR4) 
PCCTS 

TIMELN, TMTTIM (R4 ) 

PC, TMT 

GERR 

»400,#TNTSAV(R4) 
1* 



; GET MSG ADDRESS 
j GET M5G SIZE 

;CORRECT FOR CRC AND HEADER 

jGO GET CLEAR TO SEND 

;GIVE 'EM 1/2 MINUTE 

;GO TRANSMIT 

;ERPOR RETURN 

;KILL REQ TO SEND 

; MAKE THIS A NOP«240 FOR ONE 

; HA Y OUT, TMT ONLY. OTHER SIDE 



NQAA DEC/XU SYSTEM EXERCISER MODULE 
NORA. PI! 



f>31 
832 
833 
834 
835 
836 
837 
838 
R39 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
RBI 
882 
883 
884 
885 
836 



001610' 
•01612' 
001620' 
•01626' 
^01634' 
•01642' 
•01646' 
•01650' 
•01654' 
•01662' 
•01664' 



001670' 
•01676* 
031702' 
•01706* 
•01714' 
•01716* 



•01720' 
•01724' 
901726" 
•01734* 
•01740' 
•01746* 
•01754' 
•01762' 
•01766* 
•01770* 
•01772' 

•02000* 
•02006' 
•02014' 
•02020' 
•02022' 
•02024' 
•02030' 
002034' 
002040' 
•02044" 

002050' 
•02056' 



002060' 
•02064' 
•02066' 
•02072' 
•02076' 



000417 
016464 
016764 
062764 
016764 
004767 
00041 3 
005264 
026764 
•03325 
000167 



042774 
016401 
105261 
126167 
002267 
030754 



032703 
001003 
012764 
304767 
016464 
016764 
062764 
004767 
000472 
000433 
012764 

016764 
062764 
004767 
900455 
000412 
012700 
916701 
066701 
•12702 
00016 7 

012764 
104400 



905764 
001H2H 
005264 
134407 
1P4437 



004766' 004772' 
000000G 004776' 
000012 004776' 
176330 005002" 
000366 

005034' 

176306 005034' 



000401) 004762' 

005020' 

000020 

000020 176256 



000040 

177777 005110' 
002302 

004766" 004772' 
000000G 004776' 
000012 004776' 
000246 



000000G 005044' 

000000G 005054" 
000012 005054' 
001410 



002222" 

176134 

176130 

000000 

002324 

000001 005074' 1$t 



005150" 
000000' 
000000* 
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;0F LINE MUST DO ONE MAY IN 




BR 


PPHDM2 


;USEO FOR ONE WAY OUT ONLY 


is: 


MOV 


AMSGBF( R4 ) i REC ADRC R4 ) 


;SET UP INPUT AREA 




MOV 


MSGSlZf RECCNTCR4) 


jSET UP COUNT ' 




ADD 


• 12, RECCNT(R4 ) 


[CORRECT FOR HEADER AND CRC 




MOV 


TIMELN, RECTI N(R4) 


fGIVE EM 1/2 MINUTES 




JSR 


PC, REC 


J GO RECEIVE 




BR 


HERR 


; ERROR RETURN 


PPHDM2 1 


INC 


L00P(R4) 


;COUNT AN ITERATION 




CMP 


LPCNT,LO0P(R4) 


; DONE ENOUGH? 




BGT 


PPHDM 


J BR IF NOT 




JHP 


LNDONE 




GEFR1 


BIC 


I400#»TMTSAV(R4) 


;KILL REO TO SEND 


HERRI 


MOV 


CURLIN(R4),R1 


; GET LINE • ADDRESS 




INCB 


20(R1) 


;COUNT AN ERROR 




CMPB 


20(P1),ERRLVL 


;T0O MANY ERRORS? 




BGE 


DROP 


jBR IF YES 




BR 


PPHDM2 


;G0 TRY AGAIN 



POINT -TO-POINT FULL DUPLEX 



1$: 

PPFD1 : 



BIT 


•40, R0 


} MASTER OR SLAVE? 




BNE 


IS 


JBP IF M*STER 




MOV 


4177777, FDFLAGCR4) JSHOW ITS SLAVE 




JSP 


PCCTS 


;G0 GET CLEAR TO SEND 




MOV 


AMSGBF( R4 ),RECADR(R4) ) GET INPUT AREA 




MOV 


HSGSIZ,PECCNT(R4) fSET UP COUNT 




ADD 


•12,RECCNT(R4) 


jCORRECT FOR CRC AND HEADER 




JSR 


PC, REC 


;G0 GET RECEIVING STARTED 




BR 


JERP 


;REC ERROR RETURN 




BR 


FDRCDN 


i REC DONE 




MOV 


IMSGHFD, TXADR1 ( R4 ) ; FULL DUPLEX RETURN FROM REC 






; GET TMT ADDR 




MOV 


MSGSIZ,TXCNT1 (R4) J GET TMT COUNT 




ADD 


•12, TXCNTl (R4) 


;CORRECT FOR HEADER AND CRC 




JSR 


PC, TMT 


;G0 TMT 




PR 


JERR 


;TMT ERROR RETURN 




BR 


It 


;G000 TMT DONE RETURN 




MOV 


•FDTO.R0 


; FULL DUP RETURN, SET UP FOR TIME 


OUT 


MOV 


TIMELN, Rl 


(GIVE EM 1 MINUTE 




ADD 


TIMELN, Rl 






MOV 


• 0,R2 


;SHOW ITS A REC WAIT 




JMP 


TIMKEP 


;G0 WAIT 




MOV 


•1,TMTD0N(R4) 


;SHOW TMT IS DONE 




EXIT* 




;EXIT TO MONITOR. MODULE WAIT FOR 


INTERUPT. 


TST 


TMTHON ( R4 ) 


;IS TMT DONE YET? 




BNE 


4S 


;BP IF YES 




INC 


FDBKR4 ( "4 ) 


;SEE NOTE 1 In FRONT OF LISTING 




BREAKS 


BEGIN 


; TEMPORARY RETURN TO MONITOR.... 




BREAKS 


BEGIN 


; THEN CONTINUE AT NEXT INSTRUCTION 
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SEQ 0077 



887 


•02102' 


005767 


003042 




888 


002106' 


001402 






889 


•02110' 


005004 






890 


•02112' 


000402 






891 


•02114' 


912704 


000002 




892 


•02120' 


005364 


005150' 




893 


•02124' 


000755 






894 


■92126' 


945264 


005034* 




995 


•02132' 


026764 


176030 


005034' 


896 


•02140* 


003277 






897 


•02142' 


042774 


000400 


004762' 


898 


•02150' 


•00167 


177224 




S99 










900 










901 










902 


•02154* 


012764 


000001 


005074' 


903 


•02162' 


012764 


177777 


005014* 


904 


•02170* 


016401 


005020' 




905 


002174' 


105261 


000020 




906 


•02200* 


126167 


000020 


175764 


907 


•02206' 


002724 






908 


•02210* 


042774 


000400 


004762' 


909 


•02216' 


080167 


177252 




910 










911 










912 










913 


•02222' 


01 2764 


002154' 


005040' 


914 


•02230' 


000167 


000650 




915 













TST 


FDBKR4 




BEQ 


21 




CLP. 


R4 




BR 


3$ 


2$; 


HOV 


»2,P4 


3»: 


DEC 


FDBKR4CR4) 




BR 


FDRCDN 


4$! 


INC 


LQOPCR4 > 




CMP 


LPCNT,LOOP(R4) 




BGT 


PPFD1 




BIC 


I400,»THTSAV(R4> 




JMP 


LNDONE 



(BR AND WAIT SOME MORE 
(COUNT AM ITERATION 
j DONE ENOUGH 
;NO> GO DO MORE 

; KILL REQ TO SEND 



; 

;FD TMT ERROR 
JERRI MOV 

MOV 

MOV 

INC8 

CHPB 

BLT 

BIC 

JMP 

1 

;FULL DUPLEX RECEIVER TIMEOUTS COME HERE 

FDTO! MOV IJERR,RECRTN(R4) I SET UP CORRECT RETURN 

JMP P.DTO (GO REPORT REC TIME OUT 



•l#TMTDON(p4) jDON'T BOTHER WAITING FOR TMT 
•177777, AB0RTCR4) ; TELL INT ROUTINES TO GIVE UP 

CURLIH(R4),R1 j GET CURRENT LINE INFO 
20CR1) (COUNT ANOTHER ERROR 

20(R1).ERRLVL ;TOO MANY ERRORS? 
FDRCDN (NO GO TRY AGAIN 

•400,»TMTSAV(R4) -KILL REQ TO SEND 

DROP ;GIVE UP ON THIS LINE 
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916 






917 






918 






919 






920 












922 






923 


•02234' 


012664 


924 


•02240' 


016401 


925 


•02244* 


012711 


976 


•02250' 


060421 


927 


•02252* 


1167U 


928 


•02256* 


005064 


929 


•02262* 


016403 


930 


00 2266 


005464 


931 


•02272' 


005002 


932 


•02274' 


032713 


933 


•02300' 


001402 


934 


902302' 


012702 


935 


•02306' 


112763 


936 


•02314* 


150263 


937 


002320* 


016463 


938 


•02326* 


112763 


939 


•02334' 


016763 


940 


•02342' 


112763 


941 


•02350' 


012763 


942 


002356* 


042763 


943 






944 


•02364' 


150263 


945 


•02370' 


016467 


946 


•02376' 


1 04413 


947 


•02402* 


006 367 


948 


•02406' 


152763 


949 


•02414* 


156763 


950 


•02422' 


016763 


951 


•02430' 


005764 








953 


•0243b' 


012713 


954 


•02442' 


016402 


955 


•02446' 


062702 


956 


•02452' 


010207 


957 


•02454' 


012700 


958 


•02460' 


016401 


959 


•02464' 


012702 


960 


M2470' 


012713 


961 


•02474' 


000167 


962 






96 3 






964 






965 


•02500' 


000403 


966 






967 


•02502' 


000004 


968 






969 


■02510' 




97J 






971 


902510' 


900004 



005040' 
004756* 
002500* 

175534 
005014' 
•04752* 
004776* 

000004 

000004 

000001 

000005 

•04776* 

000011 

175634 

000012 

004000 

177752 

000005 

004772* 

005160' 

002556 

000020 

002544 

002534 

005110* 

000041 

005040' 

000004 

003104' 

005002' 

000000 

000041 

001674 



I 

; SUBROUTINE TO 
; CALLED WITH A 
; AFTER SETTING 
; AND DVASAVCR4) 
; 2 BYTES PAST C 
J 



RECEIVE DATA 
JSR PC, REC 

LOCATIONS RECADR(R4),RECCNT(R4),RECTIM(R4),VCTSAV(R4), 
. RETURNS ON ERROR OR RETURNS 
ALL IF SO ERROR 



REC: 


MOV 


(R6)+,RECPTN(R4);SAVE RTN ADDR 




MOV 


VCTSAV(R4),R1 


•GET VECTOR ADR 




MOV 


IRECINT,(R1) 


{MOVE IN INT, ROUTINE ADR 




ADD 


R4,(R1)+ 


{CORRECT TOR WHICH LINE 




MOVB 


BR1,(R1) 


(MOV IN PRIORITY LEVEL 




CLR 


AB0RTCR4) 


(CLEAR ABORT FLAG 




MOV 


DVASAV(R4),R3 


j GET DEVICE ADDRESS 




NEG 


RECCNTCR4) 


jGET RIGHT FORM OF COUNT 




CLR 


R2 


(ASSUME USING PRI REGS. SET BUMPER TO 




BIT 


•4, (R3) 


{ARE HE USING PRI OR SEC REG? 




BEO 


IS 


{BR IF PRI > BUMPER *0 




MOV 


14, P2 


{SET BUMPER TO 4 IF SEC. 


000005 is: 


MOVB 


tl,5(R3) 


{POINT TO RXCC-P 




BISB 


R2,S(R3) 


{BUMP TO WHICH SET 


000006 


MOV 


RECCNT(R4),6CR3) 


(WRITE RXCC-P 


000005 


MOVB 


•11.5CR3) 


{POINT TO SYNC REG 


000006 


MOV 


SYNC,6(R3) 


{WRITE IN SYNCS 


000005 


MOVB 


I12,5(R3) 


{POINT TO MISC REG 


000006 


MOV 


14000, 6(R3) 


(SET CHAR SIZE TO 8 BITS 


000004 


BIC 


1177752, 4CR3) 


(POINT TO RXBA-P 








(AND CLEAR ERR BITS FOR REC 




BISB 


R2,S(R3) 


{ BUMP TO PRI OR SEC 


002562 


HOV 


RECADR(R4) , ADR 


(PREPARE FOR GETPA CALL 




GETPAS 


, ADR 


(GET PHYSICAL ADDRESS FROM 16-BIT ADR 




ASL 


EA 


(LINE UP EA BITS 


000005 


BISB 


•20,5(R3) 


(PUT IN WRITE ENABLE BIT 


000005 


BISB 


EA,5(R3) 


(PUT EA BITS IN REG 


000006 


HOV 


PA,6(R3) 


(WRITE ALL 18 BITS 




TST 


FDFLAGCR4) 


; FULL DUPLEX? 












HOV 


141, (R3) 


(KICK OFF REC 




HOV 


RECRTN(R4),R2 


(GET RETURN ADDRESS 




ADD 


14, R2 


(FD RETURN 




HOV 


R2,R7 


(RETURN 


2*1 


HOV 


|RDTO,R0 


(RETURN ADDR 




MOV 


RECTIH(R4),R1 


(HOW LONG TO WAIT 




HOV 


10, R2 


(SHOWS ITS A REC WAIT 




HOV 


141, (R3) 


(KICK OFF REC 




JMP 


TIMKEP 


(EXIT TO TIMKEP AND WAIT 


{RECEIVER INTERRUPT ROUTINE 




RFCTNTI 


BR 


IS 




is: 

000300' 


PIRQS, 


RECDN+4, BEGIN 


{ RTI AND QUEUE UP TO CONTINUE AT 








PIPQS, 


RFCDN, BEGIN 


( RTI AND QUEUE UP Tu CONTINUE AT 
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SEO 8079 



































974 
















97S 










J 






976 


002516' 








HECDN : 


CLR 


h4 


977 


002520 * 


aaaiai 








BR 


1 8 








000002 






r?^ 


• 2f R4 


Q7Q 


002526 


at**"*!* 






! 


CUR 


•DVASA V( R4 ) 


ana 




005764 


00501 4 






TST 


ABORTf R4 ) 


99 1 




0^1 401 










2t 


982 




1 044(40 












983 


002542 


005064 


0051 1 4 




2 S 1 


CLR 


RCVTO(R4) 


984 




005064 


005222 * 






CLR 


RETTAB(R4) 


985 


00255 2 


004767 


000476 






JSR 


PCCHKREC 


986 


002556 * 


005767 


000000G 




3 S 1 


TST 


CKHSG 


987 


002562 * 


001 420 








BEQ 


61 




00256 4 * 


005264 


005 1 5 4 






I HC 


CHKR4 (R4 ) 


989 


0025 70 * 


1 d4407 


000000 " 






BREAKS 


BEGIN 


990 






000000 






BREAKS 


BEGIN 


99 1 


002600 




002 350 








CHKR4 






00 140? 








nro 


** 


993 


002606 * 










CLR 




994 




00040 2 








BR 


58 




0026 1 2 * 




00000 2 




48 2 




• 2 , H4 


996 




005 364 


005 154* 




5 8: 


DEC 


CUX D A roil 




00262 2' 












3t 


998 


002624 * 


01 6402 


004766 * 




6S I 


MOV 




''' 






17 7 7 76G 


000006 












fllflM la7 








BFQ 


7 8 


1001 


scoria' 


AMS7&7 








T«T 


REPORT 


1 002 




f •I'li-J 








BNF 


X5 


1 003 






003000 






MOV 


8003000* A8TAT 


1 004 




000 466 








no 


RECERR 


1 005 
















1 006 


!, . 


l*>7fc7 


005020 


0000 40 




MOVB 


9CURLINCR4) * 98 


1 007 


00266 4 


if ' 




000032 






8 177760* 98 


1 008 


002672 * 


005767 


175266 






TST 


REPORT 


1 009 




001 403 










88 


1010 






1 00000 


0000 1 6 




BT« 


8100000*98 


1011 


002706 


062702 


0000 1 






inn 
Snv 


810, R2 


1012 






0000 1 








R2, 98+2 


! a! 1 


' . 


^04567 


Wvx>w c y* 






1« 








000000 








BEGIN 




1 »1 1 










981 








002726 * 


000000 












1017 


0027 30 * 










BR 


X4 


1018 


0027 32* 


066702 


000000G 






ADD 


M5GSIZ, R2 


1019 


0027 36 * 


1 76722 


000000G 






CMPB 


CRCMSG, ( R2 ) ♦ 


1 020 


062742 ' 


001025 








BNE 


CER 


1021 


002744' 


1 26722 


000001 G 






CMPB 


CRCMSG* 1 , (R2)* 


1022 


002750* 


001022 








BNE 


CER 


102 3 


002752' 


062764 


000002 


005040* 




ADD 


82,RECRTN(R4) 


1024 


002768' 


095064 


005222* 




RRETt 


CLR 


RETTABCR4) 


1025 


002764' 


000174 


005040* 






JMP 


0RECRTN(R4) 


1026 










> 






1027 

















;SHOW WE'RE LINE 

;SHOW WE'RE LINE 1 
•SHUT REC UP 
jGIVE UP? 
• BR IF NOT 

;EXIT TO MONITOR. MODULE WAIT FOP INTERUPT. 

)rESET TIME OUT RETRY. COUNT 

,KILL IMPENDING TIMEOUT 

;CHECK FOR REC, HDW ERRORS 

) IS CHECK MSG ROUTINE BUSY? 

|br IF NOT 

;SEE NOTE 1 IN FRONT OF LISTING 

J TEMPORARY RETURN TO MONITOR.... 

j THEN CONTINUE AT NEXT INSTRUCTION. 



; GET REC DATA 

•IS HEADER CRC OK? 

;BR ir OK 

; REPORT ERR NOW? 

j BR IF LATER 

} SHOW ERR TYPE 



; GET LINE 8 

;LEAVE ONLY LINE BITS 

; REPORT BAD DATA? 

; BR IF YES 

fSET FLAG TO CKHSG 

; GET ADDR OF MSG 

;GO CHECK MSG 



; BAD RETURN 

jPOlNT IT TO MSG CRC, 

•CHECK 1ST CRC BYTE 



DATA WAS OK 



;CHECK SECOND 
;GOOD RETURN 

; K ILL IMPENDING TIMEOUTS 
; AND GO BACK 



NQAA DEC/XU SYSTEM EXERCISER MODULE 



NQAA.P1 1 






1028 


002770' 


005767 


175170 


1029 


002774' 


001001 




1030 


002776* 


000770 




1031 
1032 


003000' 


117402 


005020' 


1033 


003004' 


042702 


177760 


1034 


00301.)' 


105262 


000252' 


1035 


003014* 


000761 




1036 








1037 








1038 


903016' 


005767 


175142 


1039 


003022' 


F01366 




1040 


003024* 


012767 


004000 


1041 


003032' 


1 17402 


005020' 


1042 


003036' 


042702 


177760 


1043 


003042* 


050267 


175006 


1044 


003046* 


005264 


005134' 


1045 








1046 


003052' 


104404 


000000' 


1047 








1048 


003056' 


005767 


002052 


1049 


003062' 


001402 




1050 


003064' 


005004 




1051 


003066' 


000402 




1052 


003070' 


012704 


000002 


1053 


003074* 


005364 


005134' 


105 4 


003100* 


000167 


177654 


1055 








1056 








1057 








1058 


Hd3104* 


012764 


177777 


1059 


003112' 


004767 


000136 


1060 


003116' 


005264 


005114' 


1061 


003122' 


026467 


005114' 


1062 


003130' 


001042 




1063 


003132' 


017467 


004752' 


1064 


003140' 


005074 


004752* 


1065 


003144' 


C16467 


004752* 


1066 


003152' 


016401 


005020' 


1067 


003156' 


111102 




1068 


003160' 


042702 


177760 


1069 


003164' 


062702 


001000 


1070 


003170' 


010267 


174660 


1071 


003174' 


005264 


005140' 


1072 








1073 


003200' 


1 04404 


000000' 


1074 








1075 


003204' 


005767 


00173P 


1076 


003210' 


001402 




1077 


003212' 


005004 




1078 


003214* 


000402 




1079 


003216' 


012704 


000002 


1080 


003222' 


305364 


105140' 


1081 


•03226' 


005064 


005114' 


1082 


003232* 


000174 


005040* 


li!83 









MACY11 


27(732) 


20-MAY-76 12127 


PAGE 22 


X4I 


TST 


REPORT 


;REPOPT ERR NOW OR LATER? 




BNE 


X5 


1 BR IF LATER 




BR 


RRET 


; OTHERWISE RETURN 


X5l 


MOVB 


0CURLIN(R4),R2 


jGET CURRENT LINE 1 




BIC 


8177760, R2 






INCB 


EC0UNT(R2) 


jCOUNT AN ERROR FOR Th*T LINE 


; 


BR 


RRET 


; AND RETURN 


CERI 


TST 


REPORT 


; REPORT NOW OR LATER? 




BNE 


X5 


J BR ir LATER 




MOV 


8004000, ASTAT 


; indicate error type 


BFCFRB 


t MOVB 


•CUBLtNf R4) ,R? 


tGENERATF. LINE • 




BIC 


8177760, R2 






BIS 


R2, ASTAT 


jADD IN LINE 8 




INC 


CRCR«(R4) 


;SEE NOTE 1 IN FRONT OF LISTING 




ERRORS 


BEGIN 


jCRC ERROR 




TST 


CRCR4 






BEO 


18 






CLR 


R4 






BR 


28 




18: 


MOV 


• 2,R4 




28: 


DEC 


CRCR4(R4) 






JMP 


RRET 


j BAD RETURN 


; READ 


TIME OUT 


ROUTINE 




RDTO > 


MOV 


8177777, ABORT'RO ITELL INT ROUTINES TO GIVE UP 




JSR 


PCrCHKREC 


ICHECK FOR REC HD« ERRORS 




INC 


RCVT0CR4) 


)Count another retry 




CMP 


RCVT0(R4),ERRLVL 


; ENOUGH TRYS? 




BNE 


48 


; BR IF NO 




MOV 


»DVASAV(R4),ACSR;GET REC STATUS 




CLR 


8DVASAV(R4) 


; KILL REC 




MOV 


DVASAV(R4),CSRA 


;PUT ADDR IN FOR ERR CALL 




MOV 


CURLIN(R4),R1 


; GET ADOR OF CUR LINE BYTE 




MOVB 


(R1),R2 


;GET VALUE OF PHY LINE • 




BIC 


8177760, R2 


;THROW OTHER BITS AWAY 




ADD 


81000, R2 


; INDICATE REC TIMEOUT ERR 




MOV 


R2, ASTAT 


;SET UP FOR ER CALL 




INC 


RCT0R4(R4) 


;SEE NOTE 1 IN FRONT OF LISTING 




ERRORS 


BEGIN 


;PtC TIMED OUT 




TST 


PCT0R4 






BEO 


1$ 






CLR 


R4 






BR 


28 




is: 


MOV 


12, f 4 




2s: 


DEC 


RCT0R4(P4) 






CLR ' 


RCVT0(R4) 


; RESET RETRY COUNT 


3S ! 


JMp 


GRFCRTN ( R4 ) 


sERPOR RTN 



NQAA 0EC/X11 SYSTEM EXERCISER MODULE 
NQAA.PU 



HACY11 27(732) 20-MAY-76 12l27 PAGE 23 SEO 0081 



1084 


•03236' 


016401 


005020' 


1085 


•03242* 


105361 


000020 


1086 








1087 


•83246' 


005364 


005034* 


1088 


983252' 


030767 




1089 








1090 








1091 








1032 








1093 








1094 








1095 








1856 


9S3254' 


s; &4g; 


004752' 


1097 


•03260' 


012702 


011000 


1098 


•03264* 


032763 


00004ft 


1099 


•03272' 


001401 




1100 


•03274' 


000416 




1101 


•0327b' 


0127^2 


040000 


1102 


•03302' 


032763 


000010 


1103 


•03310* 


001401 




1104 


003312* 


•00407 




1105 


•03314' 


•12702 


012000 


1106 


•03320' 


032763 


000002 


1107 


•03326* 


001001 




1108 


•03330' 


000207 




1109 


•03332' 


005726 




1110 








1111 


•03334' 


0057t>7 


174624 


1112 


003340* 


001217 




1113 


•03342' 


010367 


174502 


1114 


•03346' 


011367 


174500 


1115 


•03352* 


016401 


005020* 


1116 


•03356' 


111101 




1117 


•03360' 


042702 


177760 


1118 


•03364' 


060102 




1119 


003366' 


010267 


174462 


1 120 


•03372* 


005264 


005130' 


1121 








1122 


003376* 


] 04404 


000000* 


1123 








1124 


003402' 


005767 


001522 


1125 


003406' 


001402 




1126 


•03410* 


005004 




1127 


003412' 


000402 




1128 


003414' 


012704 


000002 


1129 


•03420' 


005364 


005130' 


1 130 


•03424' 


000174 


005040* 


llil 








1132 








1133 








1134 








1 ! 35 








1136 








1137 








1138 








1139 









4$: 



MOV 
DECB 



DEC 
BR 



CURLIN(P4),P1 ; GET ADDR OF CUR LINE 
20CR1) ;DEC ERROR COUNT TO CORRECT FOR 

;INSUING IMC 

L00PCR4) (CORRECT TOR LATER CALLING THIS A GOOD RUN 

}& ; RETURN 



5 SUBROUTINE CHECKS FOR ANY OF i HARDWARE SET ERR BITS 
(AND REPORTS THE ERR AND DOES AN ERROR RETURN TO THE 
; ROUTINE WHICH CALLED FOR A RECEIVE 



chkrec: 


sov 


DV&5AV(R«),r3 


;G£T DEVICE REG 




MOV 


I110«0,R2 


; PRESET ERR « 




BIT 


«40,4(R3} 


jNON-EXIST MEM ERROR? 




BEQ 


It 


I BR IF NOT 






3t 


yELSE GO REPORT 


It: 


MOV 


I4P00*, R2 


•PRESET ERR t 






910, 4(R3 ) 


•RX LATENCY ERROR? 




BEQ 


2t 


(BR IF NOT 




BR 


3t 


j ELSE GO REPORT 


2$> 


MOV 


f 12000, R2 


; PRESET ERR 1 




BIT 


I2.4CR3) 


»RX CLOCK LOSS ERROR? 




BNE 


3t 


;BR IF YES, ELSE 




RTS 


PC 


; RETURN OK 


3«t 


1ST 


CR6)* 


;POP JSR RETURN OFF STACK 








J SINCE WE WON'T GO BACK THAT WAY 




T3T 


REPORT 


; REPORT ERRORS NOW? 




BNC 


X5 


;BR IF NOT 




HOV 


R3,CSRA J PUT IN 


FOR ERROR CALL 




MOV 


(R3), ACSR 






MOV 


CURLIN(R4),Rl 


|CET ADDR OF CUR LINE 




MOVB 


(Rl).Rl 


•GET VALUE OF CUR LINE 




BIC 


1177760, R2 


; LEAVE LINE 1 ONLY 




ADD 


R1,R2 


j ADD IN ERR f 




MOV 


R2, ASTAT 


;PUT IN FOR ERROR CALL 




INC 


DTERR4CR4) 


|SEE NOTE 1 IN FRONT OFF LISTING 




ERRORS i 


' BEGIN 


(REC ERROR 




TST 


DTERR4 






BEQ 


4S 






CLR 


R4 






BR 


5t 




4S: 


MOV 


12, R4 




5ti 


DEC 


DTERR4(R4) 






JMP 


0RECRTM(R4) 


;G0 BACK TO ERROR RTN 



( SUBROUTINE TO TRANSMIT DATA 
; CALLED WITH A JSR PC,TMT 

;AFTER SETTING LOCATIONS TXADRKR1), TXCNTKR4). TMTIMCR4), 
(VCTSAV(R4), DVA8AV(R4), SUBROUTINE CTS MUST BE CALLED FIRST. 
; RETURNS ON ERROR, RETURNS 2 BYTES PAST NORMAL RETURN 
;IF NO ERROR 
I 



NQAA DEC/Xlt SYSTEM EXERCISER MODULE 
NQAA.P1 1 



MACYU 27(732) 20-MAY-76 12t27 PACE 24 



1 140 


•03430' 


012664 


005070' 




TMT: 


MOV 


(SP)+,TMTRET(R4) 


1 SAVE RTN ADDRESS 


1141 


003434* 




005«)74* 






CLR 


TMTD0N(R4) 


; INITIALIZE FLAG 


1142 


003440' 


016401 


004756* 






MOV 


VCTSAV(R4),R1 


; GET REC VECTOR ADDRESS 


1143 


•03444' 


062701 


000004 






ADD 


14, Rl 


; HAKE IT TMT VECTOR 


1144 


•03450' 


012711 


003762' 






HOV 


ITMTINT, (Rl ) 


;MOVE IN INT ROUTINE. ADDRESS 




833454* 


063421 








ADD 


R4, CRD* 


•CORRECT FOR WHICH LINE 


1146 


•03456' 


1 1671 1 


174330 






MOVB 


BR1, (Rl) 


•MOV IN PRIORITY"LEVEL 


1147 


003462* 


005064 


005014' 






CLR 


AB0RTCR4) 


;CLEAR TIME OUT ABORT FLAG 


1 148 


003466' 


016403 


004752' 






HOV 


DVASAV(R4),R3 


jGET DEVICE ADDRESS 


1149 


•03472' 


062764 


000016 


005054* 




ADD 


I14.,TXCNT1(R4) 


;HAKE SURE HY LAST CHAP GETS SENT, SO 


1150 
















;SEND 4 GARBAGE AT END, PLUS 10 SYNCS 


1151 


•03500' 


005464 


005054* 






NEC 


TXCNT1 (R4) 


;GET COUNT IN RIGHT FORM 


1152 


903504' 


005002 








CLR 


R2 


; ASSUME USING PRI REGS, SET BUHPER TO 


1153 


003506' 


032763 


000004 


000002 




BIT 


•4,2(R3) 


; ARE WE USING PRI OR SEC? 


1154 


•03514' 


001402 








BEQ 


lit 


; BR IF USING PRI, BUMPER x0 


1155 


003516' 


012702 


000004 






MOV 


14, R2 


; ELSE SET BUHPER TO 4 


1156 


•03522* 


112763 


000003 


000005 


lit: 


MOVB 


f 3,5(R3) 


(POINT TO TXCC-P 


1157 


•03530' 


150263 


000005 






BISB 


R2,5(R3) 


(BUMP TO WHICH SET 


1158 


•03534' 


016463 


005054' 


000006 




MOV 


TXCNT1(R4),6(R3) 


; WRITE TXCC-P 


1159 


•03542' 


1 12763 


000012 


000005 




MOVB 


tl2,S(R3) 


j POINT TO HISC REG 


1160 


•03550' 


012763 


004000 


000006 




MOV 


•4000, 6(R3) 


;SET TO 8 BITS PER CHAR 


1161 


•03556* 


112763 


000011 


000005 




MOVB 


tll,5CR3) 


•POINT TO SYNC REG 


1162 


•33564' 


016763 


174404 


000006 




MOV 


SYNC,6(P3) 


;WRITE SYNC REG 


1163 


•03572* 


042763 


177725 


000004 




BIC 


1177725, 4(R3) 


{CLEAR ALL BUT REC ERR BITS 


1164 


f 03600' 


112763 


000002 


000005 




MOVB 


I2,5(R3) 


( POINT TO TXBA-P 


1165 


003606' 


150263 


000005 






BISB 


R2,5(R3) 


{POINT TO WHICH SET 


1166 


•03612' 


016467 


005044' 


001340 




HOV 


TXADR1 (R4) , ADR 


; PREPARE FOR GETPA CALL 


1167 


•03620' 


162767 


000012 


001 332 




SUB 


110., ADR 


;MOVE PTR TO START OF SYNC FIELD 


1168 


•03626' 


104413 


005160' 






GETPAt, 


ADR 


jGET PHYSICAL ADDRESS FROM lb-BIT ADR 


1169 


003632' 


006367 


001326 






ASL 


EA 


{LINE UP EA BITS 


1 170 


003636* 


152763 


000020 


000005 




BISB 


t20,5(R3) 


{ PUT IN WR ENABLE BIT 


1171 


•03644* 


156763 


001314 


000005 




BISB 


EA,5CR3) 


(MOV EA BITS INTO PLACE 


1172 


•03652' 


•16763 


001304 


000006 




HOV 


PA,6(R3) 


{WRITE ALL 18 BITS 


1173 


•03660' 


•05764 


005110* 






TST 


FDFLAGCR4) 


{ARE WE FULL DUPLEX? 


1174 


•03664' 


001423 








BEQ 


5t 


(BR IF NOT, ELSE 


1175 


•03666* 


100012 








BPL 


4t 


(SKIP IF MASTER 


















-CQHTTNUE "it iFTESi GOING TO TIHKEP 


1177 
















(TO LET OTHER LINE CONTINUE 


1178 


•03674* 


012701 


000000 






HOV 


»0,R1 


(COME BACK ASAP 


1179 


•03700' 


012702 


000004 






HOV 


14, R2 


(SHOW ITS A TMT WAIT 


1180 


•03704* 


•00167 


000464 






JMP 


TIHKEP 


•LET OTHER LINE GO 


1181 


•03710' 


0164i93 


004752* 




3t: 


HOV 


DVASAV(R4),R3 


(PUT DEVICE ADDR BACK IN R3 


1182 


•03714* 


112763 


000043 


000002 


4tt 


MOVB 


I43.2CR3) 


{ SET THT INT ENABLE 


1183 


•03722' 


016432 


00507a* 






MOV 


TMTRET(R4),R2 


(GET BAD RET ADDR 


1184 


003726' 


062702 


000004 






ADD 


14, R2 


{ HAKE IT THE FULL DUPLEX RETURN 


1185 


•03732* 


010207 








HOV 


K2,R7 


(AND RETURN 


1186 


















1187 
1188 


•03734' 


912700 


004060* 




5tl 


MOV 


ITXTO,R0 


(TIME OUT RETURN ADDR 


1189 


•03740* 


016401 


005064' 






MOV 


TMTTIM(R4),P1 


{ HOW LONG TO WAIT 


1190 


903744' 


012702 


000004 






MOV 


14, R2 


(SHOW ITS TRANSHITTER 


1191 


•03750* 


112763 


000043 


000002 




MOVB 


•43,2(R3) 


(SET TMT INT ENABLE AND GO BIT 


1192 


M37S6* 


000167 


•00412 






JMP 


TIHKEP 


(EXIT TO TIHKEP AND WAIT 


1193 










; TMT 


INTERRUPT 


ROUTINE 




1194 


















1195 


•03762' 


000403 






TMT1NTS bR 


1$ 





NQAA DEC/Xtl SYSTEM EXERCISER MODULE MACY1I 27(732) 20-MAY-76 12U7 PACE 25 
NQAA.P1 1 



SEO 0081 



1196 
1 197 
1198 
1199 
1200 
1201 
1202 
120) 
1204 
1205 
1206 
1207 
1206 
1209 
1210 
1211 
1212 
121 J 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1 240 
1 241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 



•03764* 


•00004 


004004' 


000000' 


PIRQS 


T1D0NE*4» BEGIN 


1 RII 


AND 


QUEUE 


UP 


TO 


CONTINUE 


AT 


TIDONE+4 


003772' 






ISt 






















•03772' 


000034 


004000* 


000000' 


PIRQS 


TIDONE, BEGIN 


; RTI 


AND 


QUEUE 


UP 


TO 


CONTINUE 


AT 


TIDONE 



• •M000' 
•04002' 
004004' 
004010' 
•04014' 
004020' 
•04022' 
•04024' 
•04030' 
•04036' 
•04044' 
•04046' 
•04054' 



P05004 






TIDONE: 


CLR 


R4 


000402 








BK 


IS 


•12704 


000002 






MOV 


12, R4 


005064 


005226* 




It! 


CLR 


RETTAB*4(R4> 


•05764 


005014* 






TST 


ABORTCR4) 


001401 








BEQ 


2t 


104400 








EXITS 




016403 


004752* 




2$: 


NOV 


DVASAV(R4),R3 


042763 


000047 


000002 




BIC 


I47,2(R3) 


032763 


000025 


000004 




BIT 


I2S,4(R3) 


001005 








BNE 


TXTO 


062764 


000002 


005070' 




ADD 


I2.TNTRET(R4) 


000174 


005070* 






JMP 


tTNTRETCFU) 



;SET TO LINE 

;SET TO LINE 1 
;KILL IMPENDING TIMEOUT 
jSHOULD NE GIVE UP? 
•BR IF NO, ELSE 

jEXIT TO MONITOR. MODULE WAIT FOR INTERUPT . 
;GET DEVICE ADDR 
jKILL TMT'ER 
;AN» HDW ERR'S ? 
; BR ir YES 

; MAKE IT A GOOD RETURN 
jGO BACK OK 



JROUTINF IF TRANSMIT TIMES OUT 



•04060' 


012764 


177777 005014' 


TXTO: 


MOV 


SI77777,ABORT(R4) J TELL INT ROUTINES TO GIVE UP 


•04066' 


016403 


004752* 




MOV 


DVASAVf R4) , P. J 


fCET ADDR Or STATUS 


•04072' 


062703 


000002 




ADD 


S2,R3 


; MAKE IT TMT CSR 


•04076* 


011367 


173750 




MOV 


(R3),ACSR 


;SAVE STATUS 


•04102* 


•42713 


000041 




BIC 


141, (R3) 


( KILL TRANSMISSION AND INT 


004106' 


010367 


173736 




MOV 


R3,CSPA 


t STORE FOR ERR CALL 


•04112* 


016302 


000002 




MOV 


2(R3),R2 


j GET ERR REG CONTENTS 


•04116' 


•12703 


005000 




MOV 


15000, R3 


; ASSUME ITS A TIME OUT 


•04122' 


032702 


•00020 




BIT 


120, R2 


;TX NON-EXIST MEM? 


•04126' 


001403 






BEO 


IS 


;BR IF NOT 


•04130' 


012703 


006000 




MOV 


16000, K3 


j ELSE SHOW IT 


•041 34' 


000413 






BR 


3S 


} AND GO REPORT 


•041 36' 


032702 


000004 


it: 


BIT 


t4,R2 


jTX LATENCY ERR? 


•04142' 


•01 403 






BEO 


2* 


jBR IF NOT 


004144' 


B12703 


007000 




HOV 


•7000, R 3 


jELSE SHOW IT 


•04150' 


000405 






BR 


3S 


j AND GO REPORT 


004152" 


•32702 


000001 


2s: 


BIT 


f 1,R2 


jTX CLOCK LOST ERROR? 


004156' 


001402 






BEQ 


3S 


jBR IF NOT 


•04160* 


012703 


002000 




MOV 


#2000, R3 


;ELSE SHOW IT AND REPORT IT 


•04164' 


•16401 


005020' 


3S: 


MOV 


CURLIN(R4),R1 


; GET ADDR OF CUR LINE 


•04170' 


1111.12 






MOVB 


(R1),R2 


jGET VALUE 


•04172' 


042702 


J77760 




BIC 


1177760, R2 


; LEAVE ONLY LINE • 


•04176' 


060302 






ADD 


R3.R2 f INDICATE TMT TIMEOUT 


•04200' 


010267 


173650 




MOV 


R2, ASTAT 


|SET UP FOR ERROR CALL 


004204' 


005264 


005144' 




INC 


TXT0R4(R4) 


(SEE NOTE 1 IN FRONT OF LISTING 


•04210' 


104404 


000000' 




ERRORS 


BEGIN 


j TMT ERROR SEE ASTAT INDICATOR 


•04214' 


005767 


000724 




TST 


TXTOR4 




•04220' 


•01402 






BEO 


4S 
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1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1 260 
1261 
1262 
1263 
1264 
1 

1 266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1 287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
I 299 
1 300 
1301 
1302 
I 303 
1304 
1 305 
1306 
1 307 



•04222' 005004 

•04224' 000402 

004226' 012704 

•04232' 005364 

•04236' 000174 



•04242' 

na4?4* ' 
•04252' 
•04256* 
•04262' 
•04264' 
•04270' 
•04274' 
004302* 
•04304' 
•04310* 



012664 
num 
062701 
012711 
060421 
1 16711 
016403 
032763 
•01402 
016407 
•12763 



000002 

005144' 

00507C 



005104' 
aatm • 
000004 
004320' 

173522 
•04752' 

•20000 000002 
005104' 

001422 000002 



4S! 
5t: 



CLR 

BR 

MOV 

DEC 

JMP 



R4 
5S 

12, R4 

TXTOR4CR4) 
•TMTRET(R4) 



I BAD RETURN 



I SUB GETS CLEAR TO SEND FOR LINE IN DVASAVCR4) AND VCTSAV(R4) 



•04316' 104400 



•04320' 000403 



CTSI MOV 
MOV 
ADD 
MOV 
ADD 
MOVB 
MOV 
BIT 
BEO 
MOV 

RT8SETI MOV 

EXITS 
;INT ROUTINE 
CTSINTI BR 



(R6)+,CTSRET(R4) ) SAVE RET ADDRESS 

VfTSnVfRO ,R1 »Gfc'T VECTOR ADDR 
14, Rl ; MAKE IT B VECTOR 

#CTSINT,(R1) }MOV IN INT ROUTINE ADDR 
R4,(R1)+ ;SHONS WHICH LINE 

BR1,(R1) jGET BR1 LEVEL 

DVASAV(R4),R3 f GET DEVICE ADDR 
t20000,2(R3) lIS CLEAR TO SEND UP? 
RT6SET jBR IF NOT 

C?SRET(R4),R7 j RETURN 

11422, 2(R3) | SET RCQ TO SEND AND INT, ENABLE 
;DTR AND IDLE BIT TOO. 

jEXIT TO MONITOR. MODULE WAIT FOR INTERUPT. 



IS 



j DIFFERENT PIRQ'S 



•04322' 


000004 


004336' 


000000* 


PIROS 


2S 


BEGIN 


J RTI 


AND 


QUEUE 


UP 


TO 


CONTINUE 


AT 


21 


•04330' 






is: 
























•04330' 


000304 


004344' 


000000' 


PIRQS 


3S 


BEGIN 


; RTI 


AND 


QUEUE 


UP 


TO 


CONTINUE 


AT 


3S 



•04336' 
•04342' 
•04344' 
004 346' 
■04352' 
004360' 
•04362' 
004370' 



012704 
000401 
005004 
016403 
032763 
•01753 
•42774 
016407 



004752* 

02000(1 000*02 



000020 004752' 
005104' 



39: 
4S: 



MOV 12, R4 >SET UP FOR LINE 1 

BR 4S 

CLR R4 ;SET UP FOR LINE 

MOV DVASAV(R4),R3 ; GET DEVICE ADDR 

BIT 120000, 2(R3) (IS CLEAR TO SEND SET? 

BEO RT63ET jGO TRY AGAIN IF NOT 

BIC #20,»DVASAV(R4) jDISABLE DATA SET CHG INT'S 

MOV CTSRET(P4),R7 ; RETURN 



; ALL ROUTINES COME HERE WHILE WAITING FOR I/O 

JROUTINF EITHER KICKS OFF SECOND LINE, NOTIFYS 

; ROUTINES OF TIMEOUTS, OR JUST DOES BREAKS. 

;I/0 ROUTINES THAT FINISH UP BEFORE TIMEOUT VALUE 

;MUST CLEAR LOCATION RETTAB(R4) ♦• IF RECEIVER OR + 4 

;IF TMT. 

; CALLED WITH A JMP TO TIMKEP AFTER LOADING 
; R0 s WHERE TO RETURN IF TIME OUT 
; Rl ■ HOW LONG TO WATT (IN SECONDS) 

; R2 ■ IF ITS A RFC TIMEING OR 4 IF ITS A T«T WAIT 
; R4 m vi FOR ACTIVE LINE 0, 2 FOP ACTIVE LINE 1 
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riuAA.Pj i 






1308 








1309 








1310 


804374' 


060402 




1311 


004 376 ' 


010162 


005212' 


i 31 2 


084402" 


067762 


S0080BG 


1313 


904410" 


010462 


005232* 


1314 


#04114* 


010062 


005222' 


1315 








1316 








1317 








1318 


•04420 


022767 


000P02 


1319 


904426" 


001410 




i 320 


904430" 


9S57S4 




1 321 


004432* 


001402 




1322 


004434' 


005004 




1 323 


004436* 


000402 




1 324 


•04440* 


1*12704 


000002 


1 325 


•04444* 


000167 


174344 


1 326 








1 327 








1 326 


004150 


012702 


005222* 


1329 


004454 * 


005722 




1 330 


004456* 


001026 




1331 


004460* 


020227 


005232* 


1332 


004464* 


001 37 3 




1333 


•04466* 


005767 


000430 


1 334 


004472* 


001402 




1 335 


•04474* 


000167 


000064 


1 336 








1337 


•04500 


005767 


000414 


1 338 


•04504 * 


001401 




1 339 


•04506* 


1 04400 




1 3 40 








1341 


•04510 


012767 


000001 


1 342 


•04516* 


134407 


000000' 


134 3 


004522* 


104407 


00000e* 


1344 


•04526* 


005067 


000366 


1 345 


•045 32' 


000746 




1 346 








1347 


004534' 


005742 




1 348 


•04536' 


027762 


000000G 


1 349 


034544* 


003002 




1 150 


•04546* 


005722 




1 351 


•04550* 


000743 




1352 








135 3 


•04552 


016204 


000010 


1 354 


004556 ' 


011203 




1 355 


•04560 * 


005012 




1356 


•04562* 


010307 




1357 








1358 








1359 








1360 








1361 








1362 








1363 


004564* 


005767 


173374 



it: 

2S1 



ADD 


R4,R2 


MOV 


Rl » TIMTABC R2 ) 


ADD 


* TIpi£, TIHTAB ( i 


MOV 


R4» R4TABCP2) 


MOV 


R0,RETTAi(R2) 


CMP 


I2.LINACT 


BEQ 


TIMCHK 


TST 


R4 


BEO 


IS 


CLR 


R4 


BP 


2S 


MOV 


I2.R4 


JMP 


GETNXT 


MOV 


IRETTAB,R2 


TST 


(R2) + 


BNE 


4$ 


CMP 


R2,IRETTAB+10 


BNE 


IS 


TST 


PASTIM 


BEO 


2S 




EPASS 


TST 


BRKFLG 


BEO 


3S 


EXIT* 






• 1 , BRKFLG 


BREAKS, 


> BEGIN 


BREAKS i 


, BEGIN 


CLR 


BRKFLG 


BR 


TIMCHK 


TST 


-(R2) 


CMP 


•TIME,-10(R2) 


BGT 


5S 


TST 


(R2) + 


BR 


MS 


MOV 


10(R2),R4 


MOV 


(R2),R3 


CLR 


CR2) 


MOV 


R3.R7 



jFIGURE OUT WHICH TABLE ENTRY 
jSTORE HOW LONG TO WAIT 
) ; ADD PRESENT TIME 

;SAVE KHICH ACTIVE LINE 
• WHERE TO RET TO, PLUS 
;IF THIS ENTRY IN TABLE IS 
'a THEN NO TIMEOUT HILL 
-OCCUR FOR THIS ENTRY SET 
j ARE 2 LINES GOING? 
j BR IF YES 
;«RE WE LINE 0? 
; BR IF YES 
; IF NO MAKE IT 

; HE HERE SO NOW DO 1 
;GO DO OTHER LINE 



;GET ADDR OF TlHE STATUSES 
} ANY WAIT GOING ON? 
;BR IF YES 

; ARE WE DONE LOOKING 
;BR BACK IF NO 
,TIME FOR END OF PASS 
;BR IF NO 

;GO REPORT END OF PASS 

;ARE WE ALREADY IN A BREAK? 
;BR IF NO 

;EXIT TO MONITOR. MODULE WAIT FOR INTERUPT. 

;SHOW WERE DOING BREAK 
; TEMPORARY RETURN TO MONITOR.... 
; THEN CONTINUE AT NEXT INSTRUCTION. 
;SHOW WERE BACK 



;MOVE R2 BACK 

;IS TIME UP? 

; BR IF YES 

;BUMP R2 BACK AGAIN 

•GO CHECK OTHERS 

;SET R4 CORRECTLY FOR WHICH LINE 

;SAVE RETURN 

;CLEAR THIS ENTRY 

;JHP TO TIME OUT ROUTINE 



; EPASS DOES END OF PASS CALL AND PRINTS ERR SUMMARY 
lIF LOCATION REPORT IS NOT 



EPASS! TST 



REPORT 



;DO ERR SUM OR NOT 
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NOAA.P11 














1364 


004570* 


001461 






BEQ 


5S 


; BR IF NO 


1365 


004572' 


0*5267 


000146 




INC 


MSGCNT 


;COUNT A PASS 


1366 


»04576* 


026767 


000142 173360 




CMP 


MSGCNT, REPORT 


jTIME FOR A MSG? 


1 367 


004604* 


001053 






BNE 


5S 


;IF NOT EVEN 8, SKIP MSG 


1368 


004606* 


005067 


000132 




CLR 


MSGCNT 




1369 


S04612* 


0! 2700 


330212" 




MOV 


ipuvrn.D; 


-FIND WHICH LINES ARE RUNNING 


1 370 


•04616* 


012701 


011402' 




MOV 


ISUM1+4,R1 


;POINTS TO MSG 


1371 


•04622* 


105710 




is: 


TSTB 


(R0) 


;IS LINE IN USE? 


1 372 


004624' 


100403 






BMI 


2* 


;BR IF YES 


1373 


004626' 


012711 


054130 




MOV 


154130, (Rl) 


;PUT XX IN I OF ERRS 


1374 


004632' 


B00427 






BR 


4S 




1375 


004634' 


1 16002 


000040 


2$: 


MOVB 


32.(R0),R2 


; GET « OF ERRS 


1376 


•04640' 


105060 


000040 




CLRB 


32. (R0) 


; RESET ERR COUNT 


1377 


•04644* 


022702 


000077 




CMP 


#77, R2 


; ANY GOOD MSGS 


1378 


•04650' 


002416 






BLT 


31 


;BR IF NO 


1379 


•04652' 


010203 






MOV 


R2.R3 


;PUT IN MSG 


1380 


•04654* 


042703 


177770 




BIC 


1177770. R3 


; LEAVE ONLY LOW DIGIT 


1381 


•04660' 


062703 


000060 




ADD 


(60, R3 | MAKE 


IT ASCII 


1382 


•04664* 


1 10361 


000001 




MOVB 


P3,1CR1) 


;STORE IT AWAY 


1383 


•04670* 


006202 






ASR 


R2 


;GET NEXT DIGIT 


1384 


•04672' 


006202 






ASR 


R2 




1385 


•04674* 


006202 






ASR 


R2 




1386 


•04676' 


062702 


000060 




ADD 


160, R2 


; MAKE IT ASCII 


1387 


•04702' 


1 10211 






MOVB 


R2,(R1) >PUT 


IT IN MSG 


1388 


•04704' 


000402 






BR 


4t 




1389 


004706* 


012711 


042102 


3S: 


HOV 


142102, (Rl) 


;PUT IN AN 'BD* FOR BAD 


1390 


•04712' 


005200 




4$: 


INC 


R0 


jBUMP LINE POINTER 


1391 


•04714' 


062701 


000010 




ADD 


110, Rl 


;POINT TO NXT MSG 


1392 


•04720* 


320027 


000232* 




CMP 


R0, IPHYTAB+20 


;DONE 


1393 


•04724' 


001336 






BNE 


1$ 


;GO DO MORE 


1394 


•04726' 


104411 


004740' 000000' 




MSGNS, 


MSUM, BEGIN 


;ASCII MESSAGE CALL WITH COMMON HEADER 


1 395 
1396 








! 








1397 


•04734' 






5$: 








1398 


•04734' 


104402 


000000' 




ENDPSS 


, BEGIN 


{SIGNAL END OF PASS. CONTINUE AT RESTRT 


1399 








: 
























1401 


004742* 


177777 






-1 






1402 
















1403 


•04744' 


000000 




msgcnt: 







;COUNTS END PASSES FOR MESSAGE CALL 


1404 


•04746* 


000000 




mask: 







jUSED FOR BIC'ING IN LOOPS 


1405 


•04750* 


000000 




nXTlIn: 







; ADR OF NEXT LlN 


1406 


•04752' 


000000 




dvasav: 







jHOLDS DVA FOR ACTIVE Lid 


1407 


•04754' 


900000 











} HOLDS DVA FOR ACTIVE Ltl 


1408 


•04756' 


000000 




VCTSAV: 







; HOLDS VCT FOR ACTIVE LIB 


1409 


004760' 


000004 











;HOLDS VECTOR FOR ACTIVE Lll 


1410 


•04762* 


•00000 




TMTSAV: 







; HOLDS ADDR OF TMT CSR FOR LINE 


1411 


•04764* 


900000 











;SAME FOR LINE 1 


1412 


•04766' 


005242* 




AMSGBFl 


MSGBF0 




} ADDRESS OF MSG BUFFER 


1413 


•04770' 


007262' 






HSGBF1 




; ADDRESS OF MSG BUFFER 1 


1414 


•04772' 


000000 




recadr: 







;CUPRENT REC WORD POINTER 


1415 


•04774' 


000000 











fCURRENT REC WORD POINTER 1 


1416 


•34776* 


000000 




RECCNT! 







;REC BYTE COUNT FOR 


1417 


005000' 


000000 











;REC BYTE COUNT FOR 1 


1418 


005002* 


000000 




RICTIM; 







j TEMP HOLDS TIME OUT VALUE FOP A REC 


1419 


005004' 


000000 











; SAME BUT FOR LINE 1 
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SEQ 0087 



1420 


005006 " 


000000 


SYNCNT J 







{COUNTS HOW MANY SYN CHARACTERS PEC 


1421 


00501U* 


00000k) 









{SHOULD WAIT FOR. 


1 422 


00501 2* 


00000C 


linact: 







{HOLD THE NUMBER OF LINES RUNNING,0-2 


1423 


00501 4 ' 


000000 


ABORT t 







;ABORT FLAG FOR LI0 


1424 


005016* 


000000 









; ABORT FLAG FOR L»l 


1425 


005020" 


000003 


CURLINt 







{POINTS TO STATUS BYTE FOR CURRENT Li0 


1426 


005022* 


000000 









{POINTS TO STATUS BYTE FOR CURRENT L»l 


1427 


005024* 


002516* 


PECD! 


RFCDN 




;WHERE TO PIRQ AFTER REC DONE 


1428 


005026' 


002522' 




RECDN*4 




; 


1 429 


005030* 


000000 


ERRWDi 







; HOLDS ERR WORDS TEMPORARILY 


1430 


005032* 


000000 









{HOLDS ERR WORDS TEMPORARILY 


1431 


005034" 


•00000 


LOOP! 







; HOLDS LOOP COUNT FOR LINE I 


1 432 


005036 ' 


000000 









; HOLDS LOOP COUNT FOR LINE i 1 


1433 


.005040* 


000000 


RECRTHI 







{HOLDS RETURN ADDR FOR LINE 10 


1 434 


•05042 * 


000000 









{HOLDS RETURN ADDR FOP LINE 11 


1 435 


005044 * 


000000 


TXADRl : 







{HOLDS 1ST ADDR TO TMT FROM* LINE 


1 4 36 


005046 ' 


000000 









{SAME FOR LINE 1 


1437 


005050' 


000000 


TXADR21 







{HOLDS 2ND ADDR TO TMT FROM, LINE 


1436 


005052' 


000000 









{SAME FOR LINE 1 


1439 


005054' 


000000 


TXCNT1 : 







{HOLDS 1ST TMT COUNT FOP LINE 


1 440 


005056* 


000000 









{SAME FOR LINE 1 


1441 


005060' 


000000 


TXCNT2J 







{HOLDS 2ND TMT COUNT FOR LINE 


1442 


005062' 


000000 









{SAME FOR LINE 1 


1443 


005064 ' 


000000 


TMTTIMt 







{HOLDS TIME OUT TIME FOR LINE 


1444 


005066* 


0*0000 









{SAME FOR LINE 1 


1445 


005070* 


000000 


THTRETl 







{HOLDS RTN ADDR FOR TMT, LINE 


1 446 


005072* 


000000 









{SAME FOR LINE 1 


1447 


005074* 


009000 


TMTDOH J 







{FLAG FOR WHEN A TMT IS DONE 


1448 


005076* 


000000 









;SAMC FOR OTHER LINE 


1449 


005100* 


000000 


TSYNCTl 







{HOLDS 1 OF SYN CHAK TO SEND, LINE 


1450 


005102' 


000000 









{SAME FOR LINE 1 


1451 


005104* 


000000 


CTSRETJ 







{HOLDS RETURN ADDR FOR CTS 
{SAME FOR LINE 1 


1 452 


005106* 


000000 









1453 


•051 lfc>" 


000000 


FDFLAGt 







{0 IF HALF DUPLEX, 1 IF FULL 


1454 


•051 1 2" 


000000 











1455 


0051 14* 


000000 


RCVTOx 







{COUNTS REC TIME OUT RETRYS 


1456 


0051 16* 


000000 











1 457 


005120* 


000000 


BRKFLG1 







{IS A ONE DURING BREAKS 


1 458 


005122* 


000000 


PASTIMI 







{HAS A 1 WHEN ITS TIME FOR END OF PASS 


1459 


0051 24* 


000000 


DROPR4I 





(EXIT FLAGS 




1460 


•05126" 


000000 











1461 


0051 30* 


000000 


UTERR4I 









1 462 


0051 32 ' 


•00000 











1 463 


•051 34' 


000000 


CRCR4: 









1 464 


0051 36* 


000000 











1 465 


005 1 40 * 


000000 


PCTOR4 1 









1 466 


0051 42* 


000000 











1 467 


•05 144* 


000000 


TXTOP4 1 









1468 


•05 146" 


000000 















•00000 


FDBKR4 I 








1 470 


•05152' 


000000 











1471 


005154' 


000000 


CHKR4I 









1472 


005156' 


000000 











1473 














1474 


005160' 


000000 


ADPt 





{ TABLE FOR 


GETPA CALL 


1475 


005162' 


000000 


PA: 










NQAA DEC/XU SYSTFM EXERCISER 


MODULE 


MACY11 


27(732) 


20-MAY-76 


12127 PAGE 30 


NQAA.P1 1 
















1476 


005164' 


0000(10 






EAt 









1477 










1 








1478 


















1479 


















1480 










J 








1481 










{Rl HAS 


ADDR OR 


VECTOR 




1482 










!R0 HAS 


LINE 1 


IN LOW BITS, 


RETURNS WITH ADDR OR VECTOR IN Rl 


1483 


005166' 








GETADRI 








1484 


005166' 


010046 








MOV 


R0,-(R6) 


{ SAVE R0 


1485 


005170* 


•42700 


177760 






BIC 


1177760, R0 


{SAVE ONLY LINE i 


1486 


005174' 


001404 






IS: 


BEQ 


21 


{DONE 


1487 


005176' 


062701 


000010 






ADD 


•10, Rl 


{BUMP TO NEXT LINE 


1488 


005202' 


•05300 








DEC 


R0 


{ADDED ENOUGH TIMES? 


14S9 


345204' 


B33773 








BR 


It 


;C0 SACK 


1490 


















1491 


005206' 


PI 2600 






2s: 


MOV 


(R6)+,R0 


{ RESTORE R0 


1492 


















1493 


















1 494 


C05210' 


000207 








RTS 


PC 


{ RETURN WITH DVA IN Rl 


1495 


















1496 


















1497 


005212' 


000000 






TIMTABI 







{ WHEN TO TIME OUT FOR RECLINE 


1498 


005214' 


000000 













{WHEN TO TIME OUT FOR RECLINE 1 


1499 


005216' 


00000J 













{ WHEN TO TIME OUT FOR TXT.LlNE 


1500 


005220' 


000000 













{ WHEN TO TIME OUT FO TXT, LINE 1 


1501 


005222' 


000000 






RETTABl 







{WHERE TO RETURN FOR REC LINE 


1502 


















1503 


















1504 


















1505 


005224' 


•00000 













; WHERE TO RETURN FOR REC LINE 1 


1506 


005226' 


000000 













{ WHERE TO RETURN FOR TXT LINE 


1507 


005230' 


000000 













; WHERE TO RETURN FOR TXT LINE 1 


1508 


005232' 


000000 






R4TAS: 







{HOLD R4 FOR RETURNS 


1509 


















1510 


















1511 


















1512 


















1513 


005234' 


000000 















1514 


















1515 


005236' 


000000 















1516 


00524v* 


000000 















1517 










! 








1518 


















1519 


005242' 


•01010 






MsGBFfl S 


.BLKW 


520. 


{REC BUFFER FOR LINt 


1520 


















1521 


















1522 


•07262' 


001010 






MSGBF1 I 


.BLKW 


520. 


;REC BUFFER FOP LINE 1 


1523 


011302' 


J77777 






FILL: 


177777 




{4 CHARACTERS OF FILLER BYTES 


1524 


011304' 


177777 








177777 






1525 


01 1306' 


01 160A" 






ADROPl 


MDROP 






1526 


•1 1310* 


177777 








-1 






1527 


















1528 


















1529 










.F.VEN 








153a 


01 1312' 


•e5015 


•4452J 


04151 * 


sum: 


.ASCII 


<15><12»'SINCE LAST MSG PER LINE, IN OCTAL *<15»<12> 


1531 


01!32«' 


0201 «5 


0<<i?5 ' ' 


0*>2 1 2 1 
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1532 


91 1326" 


046440 


043523 


050040 








1533 


#11334' 


051 105 


046040 


047111 








1534 


01 1 342 * 


026 1 05 


044440 


0201 1* 








1535 


•1 1350' 


041517 


040524 


0201 14 








S 536 


#11356" 


00501 5 












1537 


01 1 360" 


044514 


042516 


021440 




.ASCII 


"LINE 1 ERRS*<15><12> 


1538 


01 1 366 * 


020040 


05 1 1 05 


051522 






1539 


01 1 374* 


005015 












1540 


01 1 376 * 


030060 


026455 


030060 


SUMS i 


.ASCII 


'Po— •0B*<i5>«12> 


1541 


01 1404* 


005015 








1542 


01 1 406 ' 


030460 


026455 


030060 




.ASCII 


*01--00'<15><12> 


1543 


01 1414* 


005015 










1544 


£1 1416* 


031060 


826455 


030060 




a ASCI I 


'55--ss'< ;?><; 2> 


1545 


011424* 


005015 










1546 


01 1426* 


031460 


026455 


030060 




.ASCII 


'03— 00*<15><12> 


1547 


01 1434" 


005015 








1548 


01 1 436' 


032060 


026455 


30060 




.ASCII 


»04--00'<15><12> 


1549 


01 1 444' 


005015 












1550 


01 1446" 


032460 


026455 


030060 




•ASCII 


*05— 00*<15><12> 


1551 


01 1454' 


005015 












1552 


01 1456" 


033060 


026455 


030060 




.ASCII 


•06— 00*<15><12> 


1553 


01 1464' 


005015 












1554 


01 1 466 " 


033460 


026455 


030060 




.ASCII 


*07— 90*<15><12> 


1555 


01 1 47 1* 


005015 












1556 


011476' 


03006 1 


026455 


030060 




•ASCII 


'10— «0*<15><12> 


1557 


01 1504" 


005015 












1558 


01 1506" 


030461 


026455 


030060 




.ASCII 


'11— »0'<15><12> 


1559 


01 1514" 


005015 












1560 


01 1516* 


031061 


026455 


030060 




•ASCII 


*12— 00*<15><12> 


1561 


01 1524' 


005015 












1562 


011526* 


031461 


026455 


030060 




•ASCII 


'13— 0»'<15><12> 


1563 


01 15 34* 


005015 












1564 


01 1536" 


032061 


026455 


030060 




•ASCII 


'14— 00*<15><12> 


1565 


01 1544" 


00501 5 












1566 


01 1546' 


032461 


026455 


030060 




•ASCII 


' 15— 00*<1S><12> 


1567 


01 1554' 


005015 












1568 


011556' 


033061 


026455 


030060 




•ASCII 


*16— 00*<15><12> 


1569 


01 1564" 


005015 












1570 


01 1566' 


033461 


026455 


030060 




•ASCII 


'17— ••'<15><12> 


1571 


01 1 574 * 


00501 5 












1572 
















1573 


011576" 


000 








.BITE 





i574 
















1575 
















1576 


011608' 


044514 


042516 


053440 


HDROPJ 


•ASCII 


'LINE HAS DROPPED' 


1577 


011606' 


051501 


042040 


047522 








1578 


011614' 


050120 


042105 


000 








1579 




000001 






.END 
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SYMBOLS 






ABORT 


005014R 




903* 


928* 


980 


1058* 


1147* 


1208 


ACSR 


00005 2 R 




4691 


1063* 


1114* 


1225* 






ADDR 


000006 R 




4481 


643 


722 








ADR 


005160R 




945* 


946 


1166* 


1167* 


1168 


1474* 


ADROP 


011306R 




808 


15251 










AHSG8F 


f04766R 




767 


833 


859 


998 


14121 




ASB 


000056R 




4721 












ASTAT 


00005 4 R 




471* 


1003* 


1040* 


1043* 


1070* 


1119* 


AMAS 


000060R 




4731 












BDCNV » 


****** 


G 


11 












BEGIN 


000000R 




4451 


624 


625 


678 


679 


692 








990 


1014 


1046 


1073 


1122 


1197 








1398 












BIT0 x 


000001 




4821 












BIT1 * 


000002 




4821 












BIT10 i 


002003 




4821 












BIT11 = 


004000 




4821 












BIT12 * 


010000 




482) 












BIT13 * 


020009 




482» 












BIT14 * 


040000 




4821 












BIT15 = 


10000!* 




4821 












SIT2 * 


000004 




4821 












BIT3 » 


000010 




4821 












BIT4 » 


000020 




482i 












BIT5 ■ 


000040 




482t 












BIT6 * 


• 00101" 




4821 












BIT7 * 


000200 




4821 












BIT8 » 


•00400 




482t 












BIT9 « 


•01000 




4821 












BREAKS* 


104407 




4821 


678 


679 


885 


886 


989 


BRKFLG 


•051 20R 




711* 


750 


1337 


1341* 


1344* 


1457. 


BP1 


•0001 2R 




4501 


927 


1146 


1269 






BR2 


•0001 3R 




4511 












CDATAS* 


104414 




4821 












CER 


•03016P 




1020 


1022 


10381 








CHKREC 


303254R 




985 


1059 


10964 








CHKR4 


aamstR 




707* 


708* 


988* 


991 


996* 


14711 


CKMSG * 


****** 


G 


4821 


986 


1013 








CRC«SG« 




G 


4821 


1019 


1021 








CRCR4 


•051 34R 




699* 


700* 


1044* 


1048 


1053* 


14631 


CSRA 


•00050R 




4671 


1065* 


1113* 


1227* 






CTS 


•04242R 




779 


824 


858 


1264(1 






CTSINT 


004320P 




1267 


1 2781 










CTSRET 


•05104R 




1264* 


1273 


1293 


145H 






CURLIN 


•05020R 




717* 


799 


846 


904 


1006 


1032 


DATCKf ■ 


104417 




4821 












DATEFI* 


104405 




4821 












DERR 


•01430R 




782 


795t 










DEVSETs 


****** 


G 


4*31 


626 










DONE 


M1134R 




715 


7381 










DROP 


•01474R 




802 


SUM 


849 


909 






OP0PP4 


•05124R 




69S* 


696* 


807* 


809 


814* 


14591 


DTEPR4 


•05130R 




697* 


698* 


1 120* 


1124 


1129* 


14611 


DVASAV 


•047S2R 




724* 


788 


929 


979* 


1063 


1064* 








1289 


1292* 


14061 








DVID1 


•0001 4R 




4521 


622 











1222* 14231 



746 

1201 



808 
1248 



885 
1280 



886 
1284 



967 
1342 



971 
1343 



989 
1394 
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EA 


005I64R 




947* 


949 


1 1 4)9* 


1171 


1476* 




ECOUNT 


000252R 




5521 


1034* 






ENDPSS * 


1 04402 




4821 


1398 












1 0440) 




482* 


624 


692 


746 






EPASS " 


004564R 




752 


1335 


1 3634 






ERRCNT 


000030R 




4594 










ERRLVL 


0001 72R 




491 • 


801 


848 


906 


1061 




ERRNS * 


104410 




4821 










ERRORS* 


1 04404 




4 8 2 • 


1046 


1073 


1122 


1 248 




EPRTAB 


#002 32R 




53 31 








EPRWD 


905030R 




1 4291 












EXITS - 


1 04400 




482t 


755 




962 


1210 


1276 


FDBCR4 


00S150R 




70S* 


706* 


884* 


««' 


892* 


1 4694 


FDFLAG 


005 1 1 0R 




757* 


761* 


857* 


951 


117 3 


1453* 


FORCDN 


002060R 




864 


8824 


893 


907 




FDTO 


002222R 




872 


9134 










FERR 


f 01 444R 




773 


7984 










FERR1 


0014 46R 




797 


7994 










FILL 


01 1 302R 




15231 












GFRP 


001670R 




827 


8454 










GETADR 


005166P 




723 


728 


1483* 








GETNXT 


t0 1 1 4 R 




7141 


721 


792 


1325 






GETPAS* 


1 0441 3 




4821 


946 


1 168 








GWBUFSs 


1 04412 




482 V 












HERP 


001676R 




838 


8464 










I N IT 


00002 2 R 




4564 












JERR 


002 1 5 4R 




86 3 


870 


902* 








LINACT 


0050} 2R 




713* 


7 30* 


7 38 


787* 


1318 




LNDONE 


001 400R 




787* 


815 


842 


898 






LOOP 


005034R 




731* 


784* 


785 


839* 




894* 


LPCNT 


000166R 




4891 


785 


840 


895 






MAP22S= 


1 0441 5 




482* 












MASK 


004746P 




627* 


631 


633 


637 


639* 


14044 


MD x 




GX 


7 34 












MDATAB 


000272R 




576» 












HOMTAB 


000 3 1 7 R 




603 * 












HDROP 


011 600R 




1525 


15764 










MODNAM 


000000R 




4461 












MODSP 


000 1 64R 




457 


4804 










MSG x 




Q 




999 










HSGBF0 


005242P 




1412 


15194 










M5GBF1 


007 26 2 R 






15224 










MSGCNT 


004744R 




670* 


1 365* 


1 366 


1 368* 


1403* 




MSGHEOx 


»•••## 


G 


4821 


672 


776 


621 


865 




MSGNS 3 


1 0441 1 




4824 


808 


1 394 








HSGSI Zx 




G 


4821 


768 


777 


822 


834 


160 


MSGSS x 


1 04416 




4824 












MSGS * 


104406 




4824 












H5UM 


004740R 




1394 


1 4004 










NXTLIN 


004750R 




712* 


714 


716 


719* 


140S4 




OACNV * 


****»» 


G 


11 












ONEPEC 


001310R 




493 


7744 


804 








ONETMT 


001606R 




494 


8294 










OPEN * 


000000 




447 
473 


453 
4824 


460 


461 


462 


463 


PA 


005162R 




950 


1172 


14754 
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PASCNT 


000026R 


458* 












PASTIM 


005122P 


710* 


748* 


1333 


1456* 






PHYTAB 


0002 12R 


511* 


628 


635 


666 


712 


714 741 


PIROS a 


000004 


482* 


967 


971 


1197 


1201 


1260 1284 


POPSP x 


00572b 


4821 












POPSP2« 


022626 


482* 












PP 


001212R 


735 


757* 










PPFO 


00172OR 


760 


855* 










PPFOl 


001740R 


8594 


896 










PPHDM 


001536R 


763 


820* 


841 








PPHDH2 


001650R 


832 


8394 


8S0 








PPHDS 


001244R 


766* 


786 










PPHDS2 


001364R 


775 


784* 


805 








PRTV I 


fJ*0P*P 


48?* 












PRTY0 s 


000000 


482* 












PRTY1 * 


000040 


4824 












PPTY2 x 


000100 


4821 












PPTY3 * 


000140 


482* 












PPTY4 x 


P00200 


482* 












PPTY5 a 


000240 


450 


451 


482* 








PRTY6 x 


000300 


482* 












PRTY7 x 


000340 


482* 












PS x 


177776 


482* 












PSW x 


177776 


482* 












PUSH x 


035746 


482* 












PUSH2 x 


024646 


482* 












PWRCNTx 




482* 


690 










QUES x 


104401 


482* 












RCTOR4 


005140R 


701* 


702* 


1071* 


1075 


1080* 


146SI 


PCVTO 


005U4R 


732* 


983* 


1060* 


1061 


1081* 


14551 


ROTO 


003104R 


914 


957 


1058* 








REC 


002234R 


772 


837 


862 


923* 






RECADR 


004772R 


767* 


833* 


859* 


945 


1414* 




RECCNT 


004776R 


768* 


769* 


634* 


835* 


860* 


161* 930* 


PECO 


P05024R 


1427* 












RFCON 


002516R 


967 


971 


976* 


1427 


1428 




RFCEPP 


003032R 


1004 


1041* 










RECTNT 


002500R 


925 


965* 










RECPTN 


00504OR 


913* 


923* 


954 


1023* 


1025 


1082 1130 


RECTIM 


005002R 


770* 


771* 


636* 


958 


1418* 




REPORT 


000164R 


486* 


1001 


1008 


1028 


1038 


1111 1363 


RESTRT 


000662K 


474 


677 


690* 








RETTAB 


005222R 


984* 


1024* 


1207* 


1314* 


1326 


1331 1501* 


RPET 


002760R 


1024* 


1030 


1035 


1054 






RSTPT 


00006 2 R 


474* 












RTSSET 


004310R 


1272 


1274* 


1291 








R4TAB 


005232R 


1313* 


1508* 










SBADR 


00005 2 R 


468* 












SPARE1 


000202R 


496* 












SPARE2 


000204R 


497* 












SPAPE3 


000206R 


498* 












SPAPE4 


0002 ICR 


499t 












SPOINT 


000024R 


4571 


b<»4 










SPSIZ x 


000040 


1* 


4^5 










SP1 


000J16R 


4531 


640 










START 


000332R 


456 


6221 
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STAT 


000020R 


4551 








SUM 


911312R 


1 400 


1530* 






SUM1 


911 376R 


1 370 


15401 






SVR0 


900032R 


4601 








SVRi 


608834k 


461 • 








SVR2 


000036R 


4621 








SVR3 


•00040R 


4631 








SYR4 


900042R 


464s 








SVR5 


000044R 


4651 








SVR6 


000046R 


466* 








SYNC 


900174R 


4921 


673 


939 


1162 


SYNCNT 


905006R 


14201 






TID08E 


33403SR 


1 197 


1 231 


i 204* 




TIMCHK 


904450R 


740 


1319 


1 328* 


1345 


TIME x 


»»•»*» G 


482s 


1312 


1 348 




TIMELN 


0001 70R 


4901 


770 


771 


78H 


TIMKEP 


004374R 


876 


961 




1192 


TIMTAB 


99521 2R 


1311* 


1312* 


1 497 * 




TMT 


903430R 


781 


826 


869 


1140* 


TMTDON 


005f 74R 


878* 


882 


902* 


1141* 


TMTINT 


003762R 


1144 


11 95* 




TMTRET 


905073R 


1 1 40* 


1183 


1215* 


1216 


TMTSAV 


004762R 


726* 


783* 


795* 


828* 


THTTIM 


00S064R 


780* 


825* 


1189 


1443* 


TPX x 


900000 


482* 








TRAPX i 


900020 


482* 








TSXNCT 


005100R 


14491 








TXADR1 


005044R 


776* 


821* 


865* 


1166 


TXAOR2 


905050R 


1437* 






TXCNTl 


005054R 


777* 


778* 


822* 


823* 


TXCNT2 


90S060R 


1 441 * 








TXTO 


044069R 


use 


1214 


1222* 




TXTOR4 


005144R 


703* 


704* 


1246* 


1250 


VCTSAV 


904756R 


729* 


924 


1142 


1265 


VECTOR 


9000 I 0R 


449* 


727 






WAIT i 


••••»• G 


482* 


676 






WASADR 


00005 4 R 


470* 








XFLAG 


900005R 


447* 








X4 


002770R 


1017 


1028* 






X5 


003000R 


1002 


1029 


1032* 


1039 


c 


011621R 


1519* 


1522* 


1574* 





825 
1310* 



1256 
845* 



1435* 
867* 



1255* 
1408* 



1445* 
B97* 



868* 
1467* 



908* 1410* 



1149* 1151* 



. ABS. 000009 000 
411621 001 



% ERRORS DETECTED? 1 

% DEFAULT GLORALS GENERATED) 1 

• NQAA, NQAA/SOL/CRFi SYM=DDXCOM ( NQAA 
RUN-TI«E! 7 12 ! SECONDS 
RUN-TIME RATIO: 70/20»3.4 
CORE USED: SK (15 PAGES) 
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1 .REM % 

2 

3 

4 

5 

6 

7 

8 

9 
10 
il 

12 IDENTIFICATION 

13 

14 

15 PRODUCT CODE: MAINDEC -1 1 -DXNPB-A-D 

16 

17 PRODUCT NAME: DUP-11 DECNET DEC/XU EXERCISER MODULE 

1 8 

19 DATE: 21-JUN-76 

20 

21 MAINTAINER: DEC/X11 DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN. 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNIsHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL. 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION , MAYNARD, MASS, 

38 
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1. abstract 

this type of dec/xll module, referred to as decnet dec/xu module, 
will detect system interaction errors when run in conjunction with 
other dec/xii modules exercising other devices on the system, 
errors are reported on the system console as they occur or as a 
summary report, at the operators option, in addition, these 
modules may be used to verify the condition of the associated 
modems and communication links, it will only test communications 
paths capable of running ddcmp , this means the devices must use 
no parity* 8 level code, and terminals cannot be tested. 



NOTE 

THIS DOCUMENT ASSUMES FAMILIARITY WITH 
THE PHILOSOPHY AND OPERATION OF DEC/Xll, 
THE DETAILS OF LINKING, LOADING, AND 
RUNNING MODULES UNDER DEC/Xll CAN BE 
FOUND IN THE DEC/Xll USERS DOCUMENTATION 
AND REFERENCE GUIDE, MAINDEC-1 1 -DXQBA , 
THE READER SHOULD ALSO HAVE READ THE 
DECNET DEC/Xll USER'S GUIDE, 

MAINDEC-1 1-DXQBC, WITHOUT THROUGHLY 
UNDERSTANDING THAT DOCUMENT, THERE IS 
LITTLE HOPE OF SUCCESSFUL TESTING. 



2. HARDWARE REQUIREMENTS 



THESE MODULES REQUIRE A COMPLETE PATH FROM A COMMUNICATIONS DEVICE 
TO A COMMUNICATIONS DEVICE. THIS MAY BE ACCOMPLISHED THROUGH A 
VARIETY OF METHODS t 



A, 1 PROCESSOR, 1 COMM. DEVICE, AND A LOOP BACK DEVICE WITH 
MODEM SIMULATION CAPABILITIES. (MUST RUN FULL DUPLEX) 

B, 1 PROCESSOR, 2 COMM. DEVICES, 2 MODEMS 

C, 2 PROCESSORS, 2 COMM. DEVICES, 2 MODEMS 

UP TO SIXTEEN LINES CAN BE HANDLED BY ONE MODULE BUT ONLY 2 
LINES ARE KEpT RUNNING SIMULTANEOUSLY, 



3. SOFTWARE REQUIREMENTS 

A. THE DEC/Xll MONITOR MUST BE QABK OR A LATER REVISION, 

B, THE N1A? MODULE MUST BE CONFIGURED DIRECTLY AFTER THE 
MONITOR* 



NPBA DEC/XH 
NPBA.Pl 1 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
106 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 



SYSTEM EXERCISER MODULE MACY11 27(732) 20-MAY-76 12:29 PAGE 4 SEQ 0096 



C. ALL NETWORK MODULES MUST BE CONFIGURED NEXT. 

D. THE N2A? MODULE MUST BE CONFIGURED NEXT.* 

E. ONE OF THE 3 CLOCK MODULES MUST BE CONFIGURED NEXT. EITHER 
KWA? i KWB?, OR KWX? 

F. ANY OTHER DESIRED DEC/X11 MODULES CAN THEN BE CONFIGURED IN 
ANY ORDER. 



4, PRELIMINARY TESTING 



THE APPROPRIATE STAND ALONE DIAGNOSTICS MUST BE RUN TO VERIFY THE 
CPU, AND THE COMMUNICATIONS DEVICE, THEN A DEC/X11 EXERCISER 
USING THE CONVENTIONAL (MAINTENANCE MODE) DEC/X11 MODULES FOR THE 
COMMUNICATIONS DEVICES MUST BE RUN, IF BOTH THESE STEPS PASS 
SUCCESSFULLY, DECNET DEC/XU MAY BE ATTEMPTED. 



5, PROGRAMMING CONSIDERATIONS 



A. OTHER THAN THE REQUIREMENTS MENTIONED IN 3 REGARDING THE 
ORDER IN WHICH MODULES MUST BE REQUIRED, THESE DECNET DEC/X11 
MODULES WILL BE COMPLETELY COMPATIBLE WITH THE DEC/X11 
MONITORS AND ALL OTHER MODULES. THE ONLY OTHER EXECPTION IS 
THAT FOR A GIVEN COMMUNICATIONS DEVICE, THERE WILL NOW BE 2 
DIFFERENT DEC/XU MODULES CAPABLE OF BEING RUN, THE OLDER 
MAINTANCE MODE TYPE REQUIRING NO CONNECTIONS TO THE 
COMMUNICATION DEVICE, AND THE NEW DECNET TYpE REQUIRING A 
COMPLETED COMMUNICATIONS PATH, IT WILL BE POSSIBLE (AND 
SOMETIMES DESIREABLE) TO CONFIGURE 2 DIFFERENT DEC/X11 
MODULES IN ONE RUN TIME EXERCISER WHICH TEST THE SAME 
PHYSICAL DEVICE, IF THIS IS DONE, ONLY ONE OF THE 2 MODULES 
MAY BE SELECTED FOR THE SAME RUN. 



B. USING THESE DECNET DEC/XU MODULES, IT IS POSSIBLE TO HAVE 
MANY NODES CONNECTED IN A NETWORK, ALL RUNNING DEC/XU 
TOGETHER, ALL THESE EXERCISERS WOULD HAVE BEEN STARTED AT 
DIFFERENT TIMES. DUE TO DIFFERENT HARDWARE ON EACH SYSTEM, 
RUN TIMES AND END OF PASS TIMES MIGHT VARY CONSIDERABLY. 
THEREFORE IT IS NECCESSARY THAT THESE DECNET DEC/XU MODULES 
BE EXTREMELY PATIENT AND HAVE A HIGH RETRY CAPABILITY IN ALL 
OPERATIONS. THIS HOWEVER, MEANS IT SOMETIMES MAY TAKE A LONG 
TIME (ON THE ORDER OF 10 MINUTES) BEFORE AN OPERATOR FINDS 
OUT A LINE IS DEFINITELY NOT RUNNING. 



C. DUE TO THE EXCESSIVE PROGRAMMING COMPLICATIONS AND LARGE 



* THESE ARE DESCRIBED IN THE DECNET DEC/XU USER'S GUIDE, 
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BUFFERS REQUIRED TO RUN MAN* LINES FROM ONE MODULE ALL AT THE 
SAME TIME, TT WAS DECIDED TO ONLY RUN 2 AT ANY ONE TIME. IF 
THE MODULE IS SET TO RUN 16 LINES, IT WILL RUN 1 PAIR FOR THE 
NUMBER OF TRANSFERS INDICATED BY LOCATION LpCNT, THEN IT WILL 
RUN A 2ND PAIR, THEN 3RD, ETC UP TO THE 8TH PAIR. IT WILL 
THEN REPORT AN END OF PASS AND GO BACK TO THE FIRST PAIR, 
THEN 2ND, ETC . THIS FORCES SOME CONSIDERATIONS TO BE MADE 
WHEN CONNECTING LINES TOGETHER SO THAT A LINE IN THE ACTIVE 
MODE IS NOT WAITING ON A LINE IN THE DORMANT MODE, PLEASE 
READ THE DECNET DEC/X11 USER'S GUIDE, ESPECIALLY THE SECTION 
ON 2 LINES AT A TIME CONSIDERATIONS. 

D. THESE MODULES WILL, AS A GENERAL RULE, USE THE MINIMUM AMOUNT 
OF FEATURES OF A COMMUNICATION DEVICE REQUIRED TO SEND AND 
RECEIVE MESSAGES, THIS MEANS THAT CRC CALCULATING HARDWARE, 
CHARACTER RECOGNITION HARDWARE, ETC, WILL NOT BE USED. THESE 
FEATURES ARE FULLY TESTED BY STAND ALONE DIAGNOSTICS. 



6, OPERATING PROCEDURES 

A, THE MODULE Is CONFIGURED, LOADED, AND RUN AS SPECIFIED IN THE 
DEC/X11 REFERENCE GUIDE, 

B, CONSOLE SWITCHES ARE STANDARD FOR DEC/Xll 

C, THE N 1 A? MODULE WILL SOLICIT FROM THE OPERATOR WHICH TYPE OF 
MESSAGE HE WANTS TO USE FOR DECNET ACTIVITY. THE OPTIONS 
INCLUDE : 

ALL ONES 
ALL ZEROS 

ALTERNATING ONES AND ZEROS 

A DIGIT (4 BIT) REPEATING COUNT PATTERN 

A PRECANNED ASCII MESSAGE 

USER SPECIFIED BY TYPING IN 

D, THE N2A? MODULE WILL MAKE ANY AUTOMATIC PHONE. CONNECTIONS 
USING ANY DN-H'S PRESENT AND WILL REQUEST THE OPERATOR TO 
DIAL ALL MANUAL CONNECTIONS, ALL OPERATORS AT EACH NODE 
UNDER TEST MUST REACH THIS POINT BEFORE ANY ONE NODE 
CONTINUES INTO THE EXERCISING PHASE. 

E, THE N2A? MODULE WILL REQUEST A CARRIAGE RETURN WHEN THE 
OPERATOR WANTS TO BEGIN EXERCISING HIS NODE. 

F, THERE ARE MANY OPTIONS WHICH MAY BE ALTERED BEFORE RUN TIME, 
THEY INCLUDE! 



(1) LOCATION 164 IS A SWITCH WHICH INDICATES WHETHER OR NOT 

ALL ERRORS SHOULD BE REPORTED AS THEY HAPPEN, IF 

LOCATION 164 IS NON-ZERO (EQUAL TO N), THEN ERRORS ARE 

TOTALLED (ON A LINE BY LINE BASIS); EVERY N PASSES THIS 
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TOTAL NUMBER OF ERRORS FOR THE PREVIOUS N PASSES WILL BE 
REPORTED. THE VALUE OF N IS THE VALUE OF LOCATION 164. 
THE MAXIMUM NUMBER OF ERRORS THAT CAN BE TALLEYED IS 256 
PER LINE. THEREFORE IF A LINE IS NOT KNOWN TO BE OF 
VERY GOOD UUALITY, THE VALUE OF LOCATION 164 TIMES THE 
VALUE OF LOCATION 166 SHOULD BE LESS THAN 128. 
(LOCATION 166 IS DEFINED NEXT,) THIS MEANS THE NUMBER OF 
MESSAGES PER PASS TIMES THE NUMBER OF PASSES PER SUMMARY 
REPORT SHOULD BE LESS THAN 128. IN THIS WAY, IF EVERY 
MESSAGE ATTEMPTED HAS AN ERROR ON BOTH TRANSMIT AND 
RECEIVE, THE ERROR TALLY WILL NOT OVERFLOW. IF THE LINE 
IS OF KNOWN GOOD QUALITY, THIS RESTRICTION MAY BE 
RELAXED. THE DEFAULT VALUE IS TO NOT REPORT TOTAL 
ERRORS. (LOC 164x0) OF COURSE DEC/X11 KEEPS TOTALS FOR 
THE ENTIRE RUN, REGARDLESS. 

LOCATION 166 INDICATES HOW MANY ITERATIONS SHOULD BE 
DONE BEFORE AN END OF PASS IS CALLED, AN ITERATION IS 
NORMALLY ONE TRANSMIT AND ONE RECEIVE, IN EITHER ORDER. 
THE DEFAULT VALUE IS 8. 

LOCATION 170 IS A TIME SCALING FACTOR. THERE ARE MANY 
TIME OUT LOOPS IN THE MODULES, SOME SHOULD LOGICALLY BE 
LONGER THAN OTHERS, THE VALUE IN LOCATION 170 IS THE 
NUMBER OF SECONDS TO WAIT FOR THE SMALLEST TIME OUTS. 
SOME TIME OUTS WILL BE A MULTIPLE OF THIS FACTOR. 
DEFAULT IS 30 SECONDS. 

LOCATION 172 IS AN ERROR TOLERATION LEVEL, ON A SINGLE 
MESSAGE BASIS, SO IF IN AN ATTEMPT TO DO ONE ITERATION 
(USUALLY A TRANSMIT THEN REClEVE OR VICE-VERSA) THE 
NUMBER OF ERRORS REACHES THE VALUE IN LOCATION 172, THAT 
LINE IS DROPPED FROM TESTING, IF BEFORE THIS LEVEL IS 
REACHED, AN ITERATION IS CORRECTLY COMPLETED, THEN THE 
ERROR COUNT WHICH IS COMPARED TO LOCATION 172 IS RESET 
TO ZERO. THE DEFAULT IS 10. 

LOCATION 174 CONTAINS 2 IDENTICAL BYTES FOR USE AS SYNC 
CHARACTERS. THE DEFAULT IS 113226 WHICH IS 2 BYTES OF 
226. IF THIS IS CHANGED, BOTH BYTES MUST BE IDENTICAL 
TO EACH OTHER, THIS LOCATION IS A DON'T CARE FOp 
ASYNCHRONOUS DEVICES, BECAUSE THEY "SYNC" ON THE FIRST 
BYTE OF THE ACTUAL MESSAGE, NOT ON PRECEDING CHARACTERS 
AS SYNCHRONOUS DEVICES DO. 

LOCATION 176 IS AN ADDRESS. IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN RECEIVE-ONLY MODE, HE SELECTS THE LINE 
FOR HALF DUPLEX, POlNT-TO-POlNT, SLAVE. (BIT 7=1, 
BITS 4,5, AND 6 s 0'S I N THE PHYSICAL LINE TABLE. SEE 
ITEM 6-F-9 BELOW). THEN PATCH THE LOCATION POINTED TO 
BY LOCATION 17b FROM A 401 TO A 240, THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
SLAVE BY THIS MODULE TO RUN IN RECEIVE ONLY MODE. THIS 
LOCATION MAY BE PATCHED BACK TO A 401 TO RESUME NORMAL 
REC-TMT TESTING. 
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(7) LOCATION 200 IS AN ADDRESS, IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN TRANSMIT-ONLY MODE/ HE SELECTS THE 
LINE FOR HALF DUPLEX, POINT-TO-POINT, MASTER (BITS 7 AND 
5 = l'S, BITS 4 AND 6 = 0'S IN THE PHYSICAL-LINE TABLE. 
SEE ITEM 6-F-9 BELOW.) THEN PATCH THE LOCATION POINTED 
TO BY LOCATION 200 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINFS BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
MASTER BY THIS MODULE TO RUN IN TRANSMIT ONLY MODE. THE 
LOCATION MAY BE PATCHED BACK TO 401 TO RESUME NORMAL 
TMT-REC TESTING, 



G, LOCATIONS DVA, VCT, BRl AND BR2 MUST BE SET TO PROPERLY MATCH 
THE FIRST DEVICE TO BE TESTED BY THIS MODULE, 



7. ERROR REPORTING 



A. ERRORS ARE EITHER TOTALLED AND PRINTED AS SUMMARIES ON A LINE 
BY LINE BASIS, OR THEY ARE PRINTED AS THEY OCCUR. SEE 
SECTION 6F1. THEY ARE 2 CLASSES OF ERRORS DATA ERRORS AND 
OTHER ERRORS. 



B, DATA ERRORS ARE ACTUALLY REpORTED BY THE N1A? MODULE BECAUSE 
THIS IS WHERE THE SHARED DATA COMPARE ERROR ROUTINE IS 
LOCATED, SO ALL DECNET DEC/XU MODULE DATA COMPARE ERRORS 
LOOK LIKE THE STANDARD DEC/XU DATA COMPARE ERROR MESSAGE 
EXCEPT: 

(1) THE MODULE NAME TYpED IS FFXX, WHERE FF IS FILLED IN TO 
BE THE NA^E OF THE DECNET DEC/XU MODULE WHICH CALLED 
THE N1A? MODULE TO DO THE COMPARE, IN OTHER WORDS FF 
REPRESENTS THE MODULE THAT "HAD" THE ERROR „ 

(2) THE ERROR NUMBER IS A COUNT OF THE DATA COMPARE ERRORS 
IN THE CURRENT MESSAGE BEING CHECKED, IT IS THEREFORE 
RESET TO ZERO EVERY TIME A NEW MESSAGE IS TO BE CHECKED, 

(3) ACSR CONTAINS THE ADDRESS OF THE DECNET DEC/X11 MODULE 
WHICH CALLED THIS ROUTINE TO HAVE ITS MESSAGE CHECKED. 

(4) SBADR CONTAINS THE LINE # OF THE DEVICE WHICH HAD THE 
DATA ERROR. 

(5) WASADP CONTAINS THE COUNT (IN OCTAL) OF WHICH CHARACTER 
IN THE MESSAGE THIS BAD CHARACTER WAS. 

(6) THE "SHOULD BE AND "wAS" ITEMS ARE NORMAL. 



C. OTHER ERRORS ARE REPORTED USING THE NORMAL ERROR CALL IN 
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DEC/X11 CSRA AND ACSR ARE STANDARD. STATC CONTAINS A CODED 



ERROR NUMBER, WITH THE CODE BEING CONSISTENT IN ALL DECNET 
DEC/X11 MODULES. THE LOW ORDER 2 DIGITS OF STATC CONTAIN 
WHICH LINE HAD THE ERROR T H E OTHER DIGITS CONTAIN THIS CODE: 



0010XX 
0020XX 
00 30 XX 
0040XX 
0050XX 
0060XX 
0070XX 
0100XX 
01 10XX 
0120XX 
0200XX 
0400XX 



REC TIME OUT 

TMT CLOCK LOSS 

HEADER CRC ERROR 

MSG CRC ERROR 

TMT TIME OUT 

TMT NON-EXISTENT MEMORY 

TMT LATENCY 

REC DATA PARITY ERROR 

REC NON-EXISTENT MEMORY 

REC CLOCK LOSS 

REC FRAMING ERROR 

REC OVERRUN OR LATENCY ERROR 



THIS METHOD SHOULD ELIMINATE THE CONSTANT NEED FOR HAVING A 
LISTING ON HAND TO DECIDE WHAT THE ERRORS WHERE. THE FIRST 
TIME THE RUN TIME EXERCISER IS RUN AFTER LOADING, THE N1A? 
MODULE WILL TYPE THIS ERROR CODE LIST OUT TO THE SYSTEM 
CONSOLE FOR THE OPERATORS SUBSEQUENT USE. 



D. ALL ERRORS HAVE A RETRY LIMIT ( SEE SECTION 6F4) WHICH CAN BE 
MODIFIED. 



E. ON pOWER-FAlL# POWER-UP CONDITIONS* DECNET DEC/XH MODULES 
WILL DROP THEMSELVES. THIS IS DONE BECAUSE THE PHONE 
CONNECTIONS WILL HAVE BEEN LOST AND OPERATOR INTERVENTION 
WILL BE REQUIRED. 



8. TEST SEQUENCE 

LINES ARE TESTED BY PAIRS IN SEQUENTIAL ORDER. THIS ORDER MAY BE 
MODIFIED BY MODIFYING THE PHYSICAL LINE TABLE. (SEE DECNET 
DEC/XU USEP'R GUIDE). THERE ARE SEVERAL TESTING OPTIONS WITH 
SLIGHTLY DIFFEPENT FUNCTIONS MAKING UP A N ITERATION: 



A. POINT-TO-POINT SLAVE. IN THIS CASE THE LINE WAITS TO RECEIVE 
A MESSAGE, WHEN IT DOES, IT CHECKS IT, AND THEN TRANSMITS A 
MESSAGE BACK. IT WILL REPORT ERRORS ON EXCESSIVE WAITS. 



B. POINT-TO-POINT MASTER. IN THIS CASE THE LINE SENDS A MESSAGE 
AND WAITS TO RECEIVE ONE IN RETURN, IT THEN CHECKS ThE 
RECEIVED MESSAGE. IF IT TIMES-OUT, IT TRANSMITS AGAIN, IT 
WILL CONTINUE TO TIME OUT AND RE-TRANSMIT UNTIL EITHER A 
MESSAGE IS RFCFIVED, OR IT TIMES OUT COUNT EQUALS LOCATION 



NPB A DEC/Xlil SYSTEM EXERCISER MODULE 
NPBA.Pll 

375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 



MAC Yl 1 27(732) 20-MAY-76 12:29 PAGE 9 SEQ 0101 



172r THE ERROR TOLERATION LEVEL. ( SEE SECTION 6F4). IT WILL 
THEN REPORT AN ERROR AND BEGIN AGAIN , AFTER THE NUMBER OF 



CONSECUTIVE TIME-OUT ERRORS REPORTED EQUALS LOCATION 172, THE 
LINE WILL BE DROPPED. 



C. POINT-TO-POINT SLAVE RECEIVE ONLY. IN THIS MODE THE LINE 
WAITS ONLY TO RECEIVE, CHECKS THE MESSAGE, AND WAITS TO 
RECEIVE AGAIN. 



D. POINT-TO-POINT MASTER-TRANSMIT ONLY . IN THIS MODE THE LINE 
JUST TPANSMITS AND THEN TRANSMITS AGAIN , ETC , 



E. MULTI-DROP MASTER. IN THIS MODE* THE LINE WILL SEND A DDCMp 
MESSAGE OUT FOR THE ADDRESS CONTAINED IN THE MULTI-DROP MENU 
TABLE, WAIT TO RECEIVE A MESSAGE BACK, AND THEN CHECK THE 
DATA. 

# NOT YET IMPLEMENTED 



F, MULH-DROp SLAVE. IN THIS MODE, THE LINE WILL WAIT FOR A 
MESSAGE WITH THE MATCHING ADDRESS. THEN IT WILL TRANSMIT A 
MESSAGE. 

* NOT YET IMPLEMENTED 



G, THESE BASIC ITERATIONS ARE REPEATED UP TO THE NUMBER OF TIMES 
IN LOCATION 166. (SEE SECTION 6F2) FOR EACH LINE SELECTED 
FOR TEST, AND THE END-OF-PASS IS DECLARED, 



9. PASS TIMES 



PASS TIMES ARE EXTREMELY CONFIGURATION DEPENDENT , DIFFERENT BAUD 
RATES, MESSAGE SIZES, AND TESTING MODES ALL GREATLY AFFECT 
THE PASS TIME, BELOW ARE SOME BALL PARK TIMES, BUT AN Jf ONE 
SYSTEM COULD VAfcY TREMENDOUSLY FROM THESE : 

-RUNNING ALONE, 1 LINE ON AN 1 1 /05 AT 9600 BAUD, HALF DUPLEX, 
POINT-TO-POINT, WITH A 512 CHARACTER MESSAGE, TAKES 15 
SECONDS. 



NOTE 1 AT VARIOUS MONITOR CALLS THROUGHOUT THIS MODULE, IT IS LIKELY THAT 
WHEN 2 LINES ARE RUNNING, A MONITOR CALL CAN BE MADE AND BEFORE CONTORL IS 
RETURNED TO THE MODULE, THE OTHEh LINE MAY CAUSE THE EXACT SAME CALL TO BE 
MADE. TN FACT, WHEN RUNNING 2 LINES FULL DUPLEX, IT MAY BE POSSIBLE TO HAVE 
4 CALLS TO THE MONITOR FROM ONE SPOT IN THE MODULE. , BEFORE THE FIRST CALL IS 
RETURNED FROM, THIS IS WHY AT SUCH CALLS, THE CODE SETS COUNTERS 
BEFORE DOING CALLS, SO THAT WHEN IT IS RETURNED TO, IT CAN KEEP WHICH 
LINE DID WHAT STRAIGHT, 
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431 
432 

433 NOTE 2 WHEN RUNNING 2 LINES LOOPED TOGETHER FROM THE SAME MODULE 

434 THE LOW ORDER ONE (PER DVC, LOC.14) SHOULD BE SLAVE AND THE HIGH ORDER 

435 ONE SHOULD BE MASTER, 

436 % 
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437 


000000 * 




438 


000000 * 




439 






440 






441 






442 








000000 * 




444 


000000 * 


0501 16 




009005 * 


090 


;* 




000001 




0000 1 


000004 




WOO 1 £ 


240 


7* ' 




240 




00001 4 ' 


000001 




0000 1 6 


000000 


452 






453 


000020 * 


1 40000 




0000 2 2 * 


000332* 


455 




900164' 


456 


000026 ' 


009000 


457 


0000 30 ' 


000000 


458 


000032 ' 


000000 


459 


000034 * 


000000 


460 


000036 * 


000000 


46 1 


000040 * 


000000 


462 


00004 2 * 


000000 


463 


00004 4 * 


000000 


464 


000046 7 


000000 


465 


000050 * 


000000 




00005 2 ' 




467 


00005 2 * 


000000 


468 


00005 4 ' 




469 




000000 


470 


000056 * 


000000 




MCI Jl CI ^ i/t " 


000000 


472 


00006 2 * 


000540' 


ill 






474 
* 












476 






4 7 7 






478 


000 16 4' 




479 






480 






481 






482 






4 8 3 






484 


000164' 


000000 


485 






486 






«87 


000166' 


000010 


488 


000170* 


000036 


489 


000172* 


000012 


490 


000174' 


1 1 3226 


491 


000176* 


001 156* 


492 


000200' 


001500' 
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IONOD <NPBA >, 1,4.5,5 

MODULE 140000, NPBA ,1,4,5,5, 

.TITLE NPBA DEC/XU SYSTEM EXERCISER MODULE 

DDXCOM VERSION 4 9/6/75 

.LIST BIN 



SEO 0103 



BEGIN t 

HODNAH I 

XFLAG; 

ADDRt 

VFCTORI 

BRl: 

BR2| 

DVIDlj 

SRli 

; ••*••• 

STAT J 

INlT: 

spoint: 

PASCNT: 
ERRCNT: 

SVR0 : 

SVRlt 

SVR2J 

SVR3: 

SVR4: 

SVR5: 

SVR6 1 

CSRAi 

SB ADR! 

ACSR: 

WASADRt 

ASTAT: 

ASB t 

AWAS: 

RSTRTj 



-ASCII 

.BYTE 

1*0 

4t0 

.BYTE 

.BYTE 

+ 1 

OPEN 
•••••••« 

140000 

START 

MOOSP 





OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

.REPT 

.NLIST 

.WORD 

.LIST 

.ENDR 



PRTY5+0 

PS?Y5»8 



/NPBA / J MODULE NAME, 

OPEN ;USED TO KEEP TRACK Or ViBUrr USAGE 

(1ST DEVICE ADDR. 

;1ST DEVICE VECTOR. 
;1ST BR LEVEL . 
{2ND BS LEVEL. 
{DEVICE INDICATOR 1. 
{SWITCH REGISTER 1 
i •»•*»*#•#•••»••»•••••»»•»*»»»**»*••**•* ***»•*•***••»*** 
;STATUS WORD. 
;MODULE START ADDR. 
; MODULE STACK POINTER. 
;PASS COUNTER, 
j ERROR COUNTER. 
;LOC TO SAVE R0. 
;LOC TO SAVE Rl. 
;LOC TO SAVE R2. 
;LOC TO SAVE R3. 
{LOC TO SAVE R4. 
{LOC TO SAVE R5. 
;LOC TO SAVE R6. 
J ADDR OF CURRENT CSR. 
; ADDR OF GOOD DATA, OR 
{CONTENTS OF CSR. 
; ADDR OF BAD DATA, OR 
;STATUS REG CONTENTS. 
{EXPECTED DATA. 
{ACTUAL DATA. 

{RESTART ADDRESS AFTER END OF PASS 
SPSIZ {MODULE STACK STARTS HERE , 





.GLOBL WAIT, TIME, HSGSIZ, CKMSG, CRCMSG, HSGHED, MSG,PWRC*T 
.GLOBL DEVSET 



LPCNT: 10 

TIMELN! 30. 

ERRLVL: 10. 

SYNC: 113226 
ONEREC 
ONETMT 



I FLAG, IF «•, THEN ERRORS ON RECEIVED MSG'S 

; ARE TOTALLED AND PRINTED EVERY t PASSED 

{IF >0, ERRORS ARE ALL REPORTED AS THEY HAPPEN, 

{ITERATIONS PER END PASS CALL 

j TIME OUT FACTOR, IN SECONDS 

t NUMBER OF ERRORS TOLERATED 

{2 BYTES OF SYNC CHARACTER 

I ADDRESS OF WHERE 240 GOES 

{ ADDRESS OF WHERE 240 GOES 
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493 
494 
495 
496 
497 
498 
499 
500 
501 
102 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 



B00202' 
000204' 
000206* 
000213' 



1)00000 

000000 
000000 
000000 



000212' 
00021 3' 
000214' 
000215' 
000216' 
000217' 
000220* 
t»00221 ' 
000222' 
000223' 
000224' 
000225' 
000226' 
000227' 
000230' 
900231 * 



000232' 
000233' 
000234' 
0002 35' 
000236' 
000237* 
000240' 
000241 ' 
000242' 
000243' 
000244' 
000245' 
000246' 
000247' 
000250' 
000251 ' 



000 
001 

002 
003 
004 
005 
006 
007 
010 
011 
012 
013 
014 
015 
016 
017 



000 
000 
000 
000 
000 
000 
000 
000 
000 
000 

000 
000 
000 
*>t>* 
000 
?I00 



SPAREl: 

SPARE2: 

SPARE3 : 

SPARE4 : 



PHYSICAL LINE TABLE. BYTE CONTAINS THE PHYSICAL 
LINE t FOR THE FIRST LINE TO BE RUN . BYTE 1 WILL BE 
THE PHYSICAL LINE RUN SECOND, ETC. 

EACH BYTE IN THE TABLE HAS THE FOLLOWING BIT MEANINGS: 



{BIT 0-3 
{BIT 4 
{BIT 5 
{BIT 6 
{BIT 7 
PHYTAB : 



. BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



PHYSICAL LINE I 

FOR POINT-TO POINT, 1 FOR MULTI-DROP 

FOR SLAVE, 1 FOR MASTER (DERIVED FROM SRI) 

FOR HALF DUPLEX, 1 FOR FULL 

DO NOT TEST, 1 TEST (DERIVED FROM DVID1) 



1 

2 

3 



ERPTAB , KEEPS TRACK OF RETRY ERROR COUNTS FOR 
EACH LINE 



errtab: . BYTE 





.BYTE 





.BYTE 


Vi 


.BYTE 





. BYTE 





. BYTE 





.BYTE 





. BYTE 





.BYTE 





. BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 





.BYTE 






F.COUNT TABLE KEEPS TRACK OF * OF BAD MSG'S 



NPBA OGC/XU SYSTEM EXERCISER MODULE: 
NPBA.P11 
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SEQ 0105 



5»9 
350 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
601 
604 



•00252* 
•0025 3' 
000254' 
•00255' 
•00256* 
•00257' 
•00260' 
•00261 * 
•00262' 
•0026 3' 
•00264' 
•00265' 
•00266' 
•00267' 
•00270' 
•00271 ' 



•00272' 
000273' 
000274' 
•00275' 
•00276* 
000277' 
•00300* 
•0030) ' 
•00302* 
•00303' 
•00304' 
•00305' 
•00306' 
•00307* 
•00310* 
•00311 ' 



000312' 
•0031 3* 
•00314' 
000315' 
•0031b' 



000 


ECOUNTI BYTE 




000 


• BYTE 





000 


BYTE 


^ 


000 


.BYTE 





004 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


• BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 





000 


.BYTE 






; 

> MULTI-DROP STATION ADDRESS TABLE 
JBYTE IS THE MULTI-DROP STATION ADDRESS 
;F0R LOGICAL LINE 0, BYTE 1 IS PO" LOGICAL LINE 1. 
;THI5 ENTRY ONLY HAS MEANING IF CORRESPONDING 
(BYTE IN PHYSICAL LINE TABLE HAS BITS 4 AND 7 SET 
; AND BIT 5 OFF, IE MULT I -DROP SLAVE TO BE TESTED 



000 


MDATAB: .BYTE 





001 


• BYTE 


1 


002 


.BYTE 


2 


003 


.BYTE 


3 


004 


.BYTE 


4 


005 


.BYTE 


5 


006 


.BYTE 


6 


407 


.BYTE 


7 


010 


.BYTE 


10 


011 


.BYTE 


11 


012 


.BYTE 


12 


013 


.BYTE 


13 


014 


.BYTE 


14 


015 


.BYTE 


15 


016 


.BYTE 


16 


017 


.BYTE 


17 



MULTI-DROp STATION ADDRESS MENU TABLE 
THIS TABLE INDICATES TO ANY LINE RUNNING AS 
MULTI-DROP MASTER, WHICH STATION ADDRESS TO 
; ATTEMPT TO EXERCISE ON THE MULTI-DROP LINE 
;IT ALLOWS UP TO 15 DIFFERENT STATIONS TO BE 
; TESTED ON A LINE. EACH BYTE WHICH IS NOTa-1 
; INDICATES A STATION ADDRESS TO BE TESTED. EACH 
; STATION IS TESTED, BY THE ORDER OF THE TABLE, 
; UNTIL THE FIRST OCCURANCE OF A -1 (BINARY 11111111) 



mdmtab: .byte 

.BYTE 
.BYTE 
.BYTE 
.BYTE 



NPBA DEC/XU SlfSTEM EXERCISER MODULE 



NPBA.P1 1 






625 


•00317' 


377 




606 


000320' 


377 




607 


•00321 * 


377 




608 


•00322' 


377 




609 


040323' 


377 




610 


•00324' 


377 




611 


•00 325* 


377 




612 


•00326' 


377 




61 3 


•00327* 


377 




614 


■00330* 


377 




615 


000331 ' 


377 




616 








617 








618 


000332* 


016700 


177456 


619 


000336' 


901082 




624 


000340* 


104403 


000000* 


621 


000344' 


012705 


000000' 


622 


000350' 


004567 


000000G 


623 


000354* 


012767 


000200 


624 


000362* 


012701 


000232* 


625 


•00366* 


00b 300 




626 


•00370* 


103003 




627 


000372' 


156741 


004262 


628 


000376* 


000402 




629 


•00400' 


146741 


004254 


630 


000404* 


1 45061 


000040 


631 


000410' 


020127 


000211' 


632 


000414* 


001364 




633 


000416' 


026727 


004236 


634 


•00424* 


001 406 




635 


•00426' 


012767 


000040 


636 


000434' 


016700 


177356 


637 


000440* 


000750 




638 


000442' 


005201 




639 


000444* 


016700 


177336 


640 


•00450' 


135721 




641 


•00452' 


100013 




642 


•00454* 


01276^ 


000400 


643 


000462' 


012714 


000002 


644 


•00466' 


112767 


000202 


645 








646 


000474' 


016769 


177474 


647 


•00502' 


062700 


000010 


648 


•00506' 


020127 


000232' 


649 


•0051 2' 


001 356 




650 


•00514' 


P05067 


004136 


651 


•00520' 


005767 


000000G 


652 


000524* 


001405 




633 


•00526' 


104107 


000000' 


654 


•00532' 


1 04407 


0C0000' 


655 


000536' 


0007b6 




656 








657 








658 








659 








660 
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.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



21: 
3(1 



411 
5tl 



8$: 
9s: 



MOV 

BNE 

ENDS 

HOV 

JSR 

MOV 

MOV 

ASL 

BCC 

BISB 

BR 

BICB 

CLRB 

CMP 

BNE 

CMP 

BEO 

MOV 

MOV 

BK 

INC 

HOV 

TSTB 

BPL 

MOV 

MOV 

MOVB 

MOV 
ADD 
CMP 
BNE 
CLR 
TST 
PEO 



DVID1,R0 
It 
BEGIN 

•BEGIN, RS 

R5, DEVSET 

1200, MASK 

IPHYTAB+16.,R1 

R0 

4t 

HASK,-(R1) 
5S 

HUSK, -(PI) 

32. (Rl) 

Rl , tPHYTAB- 1 

38 

MASK, t40 
bt 

I40,MA5K 

SRI, Re 
2« 

Rl 

ADDR, R0 

(Rl)* 

8( 

1400, 4(R0) 
•2, (R0) 
•202,SYNC*1 

SYNC,2(R0) 
I10,R0 

R1,#PHYTAB»I6. 
7« 

MSGCNT 

WAIT 

RESTRT 



BREAKS, BEGIN 
BREAKS, BEGIN 
BR 91 



[ GET DEVICES TO Bt TESTED 
(ANY ACT I VET 

( 

; PREPARE FOR NXT JSR 
(GO ASK FOR PARAMETERS 
;SET UP MASK 

;GF.T END OF DEVICE TABLE 

;CHECK EACH BIT 

;8R IF NOT ON 

;SET THIS LINE ACTIVE 

(CLEAR THIS LINE 

(CLEAR ECOUNT TABLE 

(DONET 

(BR ir NOT 

(BEEN HERE BEFORE? 

(BR IF YES 

(SET UP MASK 

(GET SLAVE/MASTER INFO 

[GO SET UP 

(GET PHYTAB ADDR 

(GET DEVICE ADDR 

(DEVICE ACTIVE} 

(BR IF NOT 

(RESET DEVICE. 

(SET DATA TERM READY 

(SET BITS FOR DEC MODE AND 

(INHIBIT AUYO-CRC 
(WHITE PARAMETER CONTROL RtGISTEP 
(BUMP R0 
(DONE? 
[BR IF NOT 

[COUNTS WHEN TO DO SUMMARY 
[LINES SET UP? 
[BR IF YES 

[TEMPORARY RETURN TO MONITOR.... 
; THEN CONTINUE AT NEX1 INSTRUCTION. 
[WAIT TILL WAIT IS CLEARED BY NET2 



THRUUGH-OUT THF PKOGRAM MANY LOCATIONS ARE REFERENCED 
OFF OF (R4). THIS IS » M E ANS OF KEEPING T*0 SETS OF 
VARIABLES, ONE FOR E»CH OF THE ACTIVE LINES, 
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SEO 0107 



661 
662 
663 
664 
665 

667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
68S 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 



JR4 ALWAYS CONTAINS A If THE PROGRAM IS CURRENTLY 
.•REFERENCING LINE Op A 2 IF IT IS REFERENCING 
{LINE 1, 



000540° 


005767 


000000G 


RESTRTJ 


TST 


PWPCNT 


;HAS THERE BEEN A POKERFAIL 


900544' 


001402 






BEQ 


It 


;CONTINUE IF NOT, 

5 


•00546' 


134403 


000000' 




END! i 


i BEGIN 


•00552' 


095004 




1 s : 


CLR 


R4 


•FIRST ACTIVE LINE 


900554' 


016706 


177244 




MOV 


SPOINT,R6 


jlNIT STACK 


000560' 


005067 


004246 




CLR 


DROPR4 


jCLEAR ALL EXIT FLAGS 


000564 


005067 






CLR 


DR0PR4+2 




•00570' 


005067 


004242 




CLR 


DTERR4 




•6057 4' 


003<t67 


004243 




CLR 


DTERR4+2 




•00600* 


•05067 


004236 




CLR 


CRCR4 




M0604' 


005067 


004234 




CLR 


CRCR4+2 




•00610' 


005067 


004232 




CLR 


RCT0R4 




•00614' 


005067 


004230 




CLR 


RCTOR4*2 




900620* 


005067 


004226 




CLR 


TXT0R4 




•0062 t* 


005067 


004224 




CLR 


TXTOR4*2 




•00630* 


005067 


004222 




CLR 


FDBKR4 




•006 34' 


005067 


•04220 




CLR 


FDBKR4+2 




•00640' 


005067 


004216 




CLR 


CHKR4 




•00644' 


005067 


•04214 




CLR 


CHKR4+2 




•00650' 


•05067 


004154 




CLR 


PASTIM 


(CLR PASS TIME FLAG 


•00654' 


005067 


004146 




CLR 


BRKFLG 


;CLR FLAG THAT S»YS WE'RE IN BREAK 


000660' 


•12767 


000212' 


003774 


MOV 


•PHYTAB.NXTLIN 


(POINTS TO NEXT LINE TO TEST 


•00666' 


•05067 


004026 




CLR 


LINACT 


(SHOW. NO LINES ACTIVE 


•00672* 


026727 


003764 


000232' GETNXTl 


CMP 


NXTLIN, f PHYTA8+16. (DONE ALL LINES? 


000700* 


•01440 






BEQ 


DONE 


(BR IF SO 


•00702* 


•16700 


603754 




NOV 


NXTLIN.RB 


I GET ADDR OF NEXT LINE 


•00706* 


010064 


004726* 




NOV 


R0,CURLIN(R4) 


;SAVE IT 


•0071 2' 


105060 


000020 




CLRB 


20(R0) 


{CLEAR RETRY COUNT FOR THIS LINE 


•00716' 


005267 


003740 




INC 


NXTLIN 


;BUMP FOR NEXT TIME 


•00722' 


111000 






MOVB 


(R0),R0 


; GET PHYSICAL LINE BYTE 


000724' 


002362 






BGE 


GETNXT 


j BR BACK IF BIT 7 NOT ON 


000726' 


016701 


177054 




MOV 


ADDR.Rl 


j SET UP TO CALC ADDR 


•007 32' 


004767 


004130 




JSR 


POGETADR 


(GO CALC ADDR 


•007 36* 


010164 


004664' 




MOV 


R1,DVAS»V(R4) 


(SAVE DVA FOR THIS LINE 


•00742* 


016701 


177042 




MOV 


VECTOR, Rl 


(SET UP TO CALC VECTOR ADDR 


0007 46* 


004767 


004114 




JSR 


PCGETADR 


;GO CALC 


#00752* 


010164 


004670* 




MOV 


R1,VCTSAV(R4) 


(SAVE IT 


•00756* 


•05267 


003736 




INC 


LINACT 


(SHOW A LINE'S RUNNING 


•00762' 


005064 


004742' 




CLR 


L00PCR4) 


;CLEAR ITERATION COUNT 


000766' 


005364 


005022' 




CLR 


RCVTOCR4) 


(CLR REC TIME OUT COUNT 


000772' 


032700 


000020 




BIT 


I20,R0 


jMULTI DROP OR NOT? 


l»0077b' 


001377 






BNE 


MD 


;BR IF IT IS 


001000' 


000427 






BR 


PP 


(BR IF NOT TO P TO P 


001002' 


005767 


003712 


f 

DONE: 


TST 


LINACT 


(ANY LINES RUNNING? 


001086* 


US 1432 






SEO 


1$ 


« BR IF NO 


001010* 


000167 


003346 




JMP 


TIMCHK 


;IF YES GO CHECK FOR TIME OUT 


•01014' 


412701 


000212' 


1$: 


MOV 


IPHYTAB, Rl 


jHUST CHECK IF MAYBE ALL LINES DROPPED 


•01020' 


105721 




2$: 


TSTB 


(Rl)* 


;IS THIS LINE STILL SELECTED? 


•01022' 


100405 






BMI 


3* 


j BR OUT IF YES 



NPBA DEC/X11 SYSTFX EXERCISER MODULE 
NPBA.Pt 1 



717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 



754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
766 
769 
770 
771 
772 



001024' 


022701 


000232' 


001030* 


001373 




•01032' 


104403 


000000* 


001036' 


012767 


000001 


001044* 


005767 


003756 


001050* 


001002 




•01052* 


000167 


003420 


•01056* 






001056' 


1 04400 




001060' 


012764 


000001 


•01066* 


032700 


000100 


001072' 


001402 




•01074' 


000167 


0005 1 2 


•01100* 


005064 


005016' 


•01104* 


032700 


000040 


•01110* 


001 141 





005016' PP: 
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CMP 


IPHYTAB+16.,R1 


.-CHECKED ALL 16? 


BNE 


2t 


I BR BACK IF NO 


END!, BEGIN 


; 


MOV 


<1,PASTIM 


(SHOW IT IS TIME FOR ENDPAS 






}FOR SP.EAK LOOP 


TST 


BRKFLG 


; ARE HE IN A BREAK LOOP? 


BNE 


4$ 


;BR IF WE ARE 


JMP 


EPASS 


jGO DO END OF PASS 


EXIT! 




(EXIT TO MONITOR. MODULE WAIT FOR INTERUPT, 


TO POINT 






MOV 


t 1 , FDFLAGCR4) 


;SAY HERE FULL DUPLEX 


BIT 


<100,R0 


;HALF OR FULL DUPLEX? 


BEQ 


It 


;BR IF HALF 


JMP 


PPFD 


;JMP TO FULL DUPLEX ROUTINE 


CLR 


FDFLAGCR4) 


{CORRECT FLAG CAUSE WERE NOT FD 


BIT 


f 40, R0 


(SLAVE OR MASTER? 


BNE 


PPHDM 


(BP IF MASTER 


TO POINTi 


r HALF DUPLEX, 


SLAVE 



001112' 








PPHDSt 




•01112' 


016464 


004674* 


004700' 




MOV 


i»ail20' 


F16764 


000000G 


004704* 




MOV 


•01126' 


062764 


000012 


004704' 




ADD 


•01134' 


016764 


177030 


004710' 




MOV 


•01142* 


066764 


177022 


004710' 




ADD 


•01150* 


004767 


000766 






JSR 


•01 154* 


000462 








BR 


•01156* 


»00401 






ONERECi 


BR 


001 160' 


000432 








BR 


•01162* 


012764 


000000G 


0«4752* 


is: 


MOV 


•01170' 


016764 


000000G 


004762' 




MOV 


•01176' 


062764 


000012 


004762' 




ADD 


•01204' 


012764 


000004 


004766' 




MOV 














•01220' 


004767 


002744 






JSR 


•01224' 


016764 


176740 


0CT4772' 




MOV 


•01232' 


004767 


002172 






JSR 


001236* 


000423 








BR 


001240' 


042774 


000004 


004664' 




BIC 


•01246' 


•05264 


004742' 




PPHDS2 : 


INC 


•01252' 


026764 


176710 


004742' 




CMP 


•01260' 


003314 








BGT 


001262' 


005367 


003432 




LNDONE : 


DEC 


•01266* 


•16403 


004664* 






MOV 


•01272* 


042713 


177775 






BIC 


•01276' 


?»506 3 


000004 






CLR 


•01302' 


•0&167 


177364 






JMP 


•01306' 


042774 


000004 


004664' 


derr: 


BIC 


B01314* 


012703 


177777 






MOV 


•01320* 


000401 








bp 


•01322* 


•0500 3 






FFRR : 


CLR 



AMSGBF(R4 } , REC ADR (R4 ) > SET UP INPUT AREA 
MSGSIZ,RECCNT(R4) ;SET UP COUNT 
I12,RECCNT(R4) {CORRECT FOR HEADER AND CRC 
TIMELN,RECTIM(R4) t HON LONG TO WAIT 
TIMELN,RECTIM(R4) {DOUBLE IT 
PC, REC {GO RECEIVE DATA 

FERR {BR TO ERROR ROUTINE 

It {MAKE THIS A NOPc240 TO 

PPHDS2 (DO ONE-WAY-IN (REC. ONLY) 

|MSGHED,TXADR1(R4) (GET MESS ADR 
MSGSIZ,TXCNT1(R4) {GET MSG SIZE 
•12,TXCNT1(R4) {CORRECT FOR HEADER AND CRC'S 
I4,TXCNT2(R4) { SEND 4 FILLS AFTER MSG 



PCCTS 
TIMELN, TMTTIM 
PCTMT 
DERR 

•4,*DVASAV(R4 

LOOP(R4) 
LPCNT,LOOP(R4 
PPHDS 
LINACT 

DVASAV(R4),R3 
1177775, (R3) 
4(R3) 
GETNXT 



I4,0DVASAV(R4) 
•-1,R3 

FERR1 
R3 



(GO GET CLEAR TO SEND 
(R4) (GIVE 'EM 1/2 MINUTE 
(GO TRANSMIT 
(BR TO ERROR ROUTINE 
(KILL REQ TO SEND 
(COUNT AN ITERATION 
(DONE ENOUGH] 
;NO, GO DO ANOTHER TIME 



(GET DEVICE ADDRESS 
(KILL ALL BUT DTP 
(KILL TRANSMITTER TOO 
(YES DO NEXT LINE 



{KILL REQ TO SEND 

{SET FLAG FOR WHICH RETURN 



;SET FLAG i OR WHICH RETURN 
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seo e; e9 



773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 



001 324* 


016401 


004726 ' 




FERR1 1 


MOV 


CURLIN(R4), Rl 


1 GET LINE t ADDR 


801330' 


105261 


000020 






INCB 


20(R1) 


:COUNT 


AN ERROR 


•01334* 


1 26 167 


000020 


J7fe63P> 




CMPB 


20CR1 ) ( ERF?lVL 


2T00 MANY ERRORS? 


001 342* 


002003 








BGE 


DROP 


; BR IF 


YES 


•01344* 


005703 








TST 


R3 


;D0 A 


TMT OP DO A REC? 


001 346' 


001703 








BEQ 


ONEREC 


;BR IF 


TMT 


•01350* 


0007 36 








BR 


PPHDS2 


:G0 TRY AGAIN 


•01352' 


14271 1 


000200 




DROP | 


BICB 


•2*0. CR1 ) 


:DROP 


THE LINE FROM TEST 


•01356* 


005264 


005032' 






INC 


DR0PR4(R4) 


tSEE NOTE 1 IN FRONT OF LISTING 


•01 362 * 


1 0441 1 


011206' 


000000* 




HSGNI , A DROP, BCGI N 


;ASCII 


MESSAGE CALL *ITH COMMON HEADER 


•01370* 


905767 


003436 






1ST 


DR0PR4 






•01 374 * 


•01402 








BEQ 


It 






•01376' 


005004 








CLR 


R4 






•01400* 


000402 








BR 


2t 






•01402' 


012704 


000002 




is: 


MOV 


12, R4 






001406* 


005364 


005032' 




2$i 


DEC 


DR0PR4CR4) 






•01412' 


000723 








BR 


LNDONE 














>POINt 


TO POINT 


HALF DUPLEX MASTER 




•01414' 








; 

PPHDM : 










•01414' 


012764 


000000G 


004752' 




MOV 


IMSGHED.TXADR1CR4) 


I GET MSG ADDRESS 


•01422' 


016764 


000000G 


004762' 




MOV 


MSGSIZ.TXCNT1CR4) 


;GET MSG SIZE 


001430' 


062764 


000012 


004762' 




ADD 


I12.TXCNTKP4) 




;CORRECT FOR CRC AND HEADER 


001436' 


012764 


000004 


004766' 




MOV 


I4,TXCNT2CR4) 




j SEND 4 FILLS AFTER MSG 


•01444' 


012764 


011202' 


004756' 




MOV 


|FILL,TXADR2(R4) 






001452' 


004767 


002512 






JSR 


PC.CT8 




;G0 GET CLEAR TO SEND 


0rfl456* 


016764 


176506 


004772' 




NOV 


TIMELN, TMTTIM(R4) 


jGIVE 'EM 1/2 MINUTE 


•01464' 


004767 


001740 






JSR 


PC, TNT 




jGO TRANSMIT 


•01470' 


0004 34 








BR 


GERR 




; ERROR RETURN 


•01472' 


042774 


000004 


004664' 




BIC 


I4,»DVASAV(R4) 




; KILL REQ TO SEND 


•01500' 


000401 






ONETMTI 


BR 


It 




;MAKE THIS A NOP*240 FOR ONE 


















jWAY OUT, TMT ONLY. OTHER SIDE 


















;0F LINE MUST DO ONE WAY IN. 


001502' 


000417 








BR 


PPHDM2 




(USED FOR ONE NAY OUT ONLY 


•01504' 


016464 


004674' 


004700' 


It: 


MOV 


AMSGBr ( R4 ) , RECADRCR4) 


jSET UP INPUT AREA 


•01512' 


016764 


000000G 


004704' 




MOV 


MSGSIZ,RECCNT(R4) 


SSET UP COUNT 


•01520' 


062764 


000012 


004704* 




ADD 


•12,RECCNT'R4) 




;CORRECT FOR HEADER AND CRC 


001526* 


016764 


176436 


004710* 




NOV 


TIMELN, RECTIM(R4 ) 


;GIVE EM 1/2 MINUTES 


•01534' 


004767 


000402 






JSR 


PCREC 




;G0 RECEIVE 


•01540* 


000413 








BR 


HERR 




; ERROR RETURN 


001542' 


005264 


004742* 




PPHDMjl 


INC 


L00P(R4) 




jCOUNT AN ITERATION 


•01546' 


026764 


176414 


004742* 




CMP 


LPCNT,LO0P(R4) 




; DONE ENOUGH? 


001554' 


003317 








BCT 


PPHDM 




;BR IF NOT 


•01556* 


000167 


177500 




[ 


JMP 


LNDONE 






•01562' 


042774 


000004 


004664' 


Gerr: 


BIC 


I4,»DVASAVCR4) 




; KILL REQ TO SEND 


•01570' 


016401 


004726' 




HERRI 


MOV 


CURLINCR4) ,R1 




>GET LINE • ADDRESS 


001574' 


105261 


000020 






INCB 


20(R1) 




jCOUNT AN ERROR 


•01600' 


126167 


000020 


176364 




CMPB 


20(R1),ERRLVL 




jTOO MANY ERRORS? 


•01606' 


002261 








BGE 


DROP 




)BR IF YES 


001610* 


000754 








BR 


PPHDM? 




(GO TRY AGAIN 
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829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
9 4 2 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
«83 
884 



jPOINT -TO-POINT FULL DUPLEX 



•01612* 


032700 


000040 




ppfd: 


BIT 


140, R0 


; MASTER OR SLAVE? 


•01616* 


001003 








BNE 


It 


) BR IF MASTER 


001620' 


012764 


177777 


005016' 




MOV 


•177777, FDFLAGCR4) ;SHOW ITS SLAVE 


•01626' 


004767 


002336 




it: 


JSR 


PCCTS 


;G0 GET CLEAR TO SEND 


001632' 


016464 


004674' 


004700' 


PPFDl 1 


MOV 


AHSGBF I P4) , REC ADR (R4 ) J GET INPUT AREA 


001640* 


016764 


000000G 


004704* 




MOV 


HSGSIZ,RECCNT(R4) ;SET UP COUNT 


•01646' 


062764 


000012 


004704* 




ADD 


I12,RECCNT(R4) 


•CORRECT FOR CRC AND HEADER 


001654* 


004767 


000262 






JSR 


PC, REC 


;G0 GET RECEIVING STARTED 


•01660' 


000509 








BR 


JERR 


|REC ERROR RETURN 


•01662' 


000441 








BR 


FDRCDN 


J REC DONE 


•01664' 


012764 


000000G 


004752' 




MOV 


t MSGHED, TXADR1 ( R4) jFULL DUPLEX RETURN FROM REC 
















iGEI 1X7 ADDR 


•01672* 


016764 


000000G 


004762* 




MOV 


MSGSIZ,TXCNT1(R4) ;GCT TMT COUNT 


•01700' 


062764 


000012 


004762' 




ADD 


I12,TXCNT1(R4) 


{CORRECT FOR HEADER AND CPC 


001706' 


012764 


000004 


004766' 




NOV 


t4,TXCHT2(R4) 


; SEND 4 FILLS AFTER MSG 


•01714' 


012764 


011202' 


004756' 




MOV 


|FILL,TXADR2CR4) 




•01722' 


004767 


001502 






JSR 


PC, TMT 


j GO TMT 


•01726' 


000455 








BR 


JERR 


j TMT ERROR RETURN 


•01730' 


000412 








BR 


It 


j GOOD TMT DONE RETURN 


•01732' 


012700 


002130' 






MOV 


•FDTO.R0 


jFULL DUP RETURN, SET UP FOP TIME OUT 


•01736* 


016701 


176226 






MOV 


TIMELN, Rl 


iGIVE EM 1 MINUTE 


•01742' 


066701 


176222 






ADD 


TIMELN, Rl 




•01746' 


012702 


000000 






MOV 


• 0,R2 


;SHOH ITS A REC WAIT 


•01752* 


000167 


002330 






JMP 


TIMKEP 


jGO kAIT 


•01756* 


012764 


000001 


005002* 


is: 


MOV 


#1,TMTD0N(R4) 


f SHOW TMT IS DONE 


•01764' 


104400 






> 


EXITS 




|EXIT TO MONITOR. MODULE «AIT FOR INTERUPT 


•01766* 


00S764 


005002' 




FDRCDNI 


TST 


TMTD0N(R4) 


jIS TMT DONE YET? 


•01772* 


001020 








BNE 


41 


•BR ir YES 


•01774' 


005264 


005056' 






INC 


FDBKR4(P4) 


f SEE NOTE 1 IN FRONT OF LISTING 


002000* 


104407 


000000' 






BREAKS 


BEGIN 


f TEMPORARY RETURN TO MONITOR.... 


•02004' 


104407 


000000' 






BREAKS 


BEGIN 


;THEN CONTINUE AT NEXT INSTRUCTION. 


•02010' 


005767 


003042 






TST 


FDBKR4 




•02014' 


•01402 








BEQ 


2t 




002016' 


005004 








CLR 


R4 




002020' 


000402 








BR 


3t 




002022' 


012704 


000002 




2t: 


MOV 


12, R4 




•02026* 


00S364 


005056* 




36: 


DEC 


FDBKR4CR4) 




•02032' 


000755 








BR 


FDRCDN 


; BR AND WAIT SOME MORE 


•02034' 


005264 


004742' 




4t: 


INC 


L00P(R4) 


;COUNT AN ITERATION 


•02040* 


026764 


176122 


00474?* 




CMP 


LPCNT,L00P(P4) 


;DONE ENOUGH 


•02046' 


(103271 








BGT 


PPFDl 


;N0, GO DO MORE 


•02050' 


042774 


000004 


004664* 




BIC 


I4,8DVASAV(R4) 


;KILL REQ TO SEND 


•02056' 


0B0167 


177200 






JMP 


LNDONE 












;FD TMT 


ERROR 






•02062' 


012761 


000001 


005002' 


Jerp: 


MOV 


I1,TMTD0N(R4) 


;DON*T BOTHER WAITING FOR T H T 


002070' 


012764 


177777 


004722' 




MOV 


1177777, AB0RT(K4 


) ; TELL INT. ROUTINES TO GIVE UP 


•02*76' 


016401 


004726* 






MOV 


CUPLIN(P4),R1 


; GET CURRENT LINE INFO 


•02102' 


105261 


00002? 






INCB 


20(P1) 


;COUNT ANOTHER ERROR 


905 !«*' 


1 ">h 1 67 


900020 


1 7 605 * 




CPS 


20'Fn,ERRLVL 


;T00 MANY ERRORS? 
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885 
886 
887 
888 
889 
890 
891 
892 
89J 



002114' 102724 
•82116* 842774 
•02124' 000167 



•02130* 012764 
•02136* 000167 



000004 
177222 



002062' 
001120 



004664' 



004746* 



BLT 
BIC 
JHP 



FORCDN 

I4,»DVASAV(R4) 

DROP 



{NO GO TRY AGAIN 
{KILL REO TO SEND 
{GIVE UP ON THIS LINE 



FULL DUPLEX RECEIVER TIMEOUTS COME HERE 
FDTO: MOV IJBRR,RECRTN(R4) JSET UP CORRECT RETURN 

JMP RDTO iGQ REPORT REC TIME OUT 



NPBA DEC/X11 SYSTEM EXERCISER MODULE 



NPBA. PI ! 






894 








895 








896 








897 








898 








899 








900 








001 


002142' 


012664 


004746' 


902 


002146' 


016401 


004670* 


903 


&02152* 


012711 


002252' 


904 


002156' 


060421 




905 


002160* 


1 16711 


175626 


906 


002164' 


005064 


004722' 


907 


•02170' 


012764 


000002 


908 


002176' 


005764 


005016' 


909 


•02202' 


001410 




913 


•02204* 


052774 


000120 


911 


002212* 


016402 


004746* 


912 


902216' 


062702 


000004 


913 


•02222" 


010207 




914 


•02224* 


012700 


003262' 


915 


•02230* 


016401 


004710* 


916 


•02234' 


012702 


000000 


917 


002240' 


052774 


000120 


918 


002246' 


000167 


002034 


919 








920 








921 








922 


002252* 


000405 




923 


•02254' 


010446 




924 


•02256* 


910346 




925 


•02260* 


012704 


000002 


926 


•02264' 


000403 




927 


•02266' 


010446 




928 


002270' 


010346 




929 


•02272* 


005001 




Qia 


aa??7«* 


HI 64B3 


004664 ' 


931 


002300* 


005764 


004722* 


932 


•02304* 


001403 




933 


•02306' 


042713 


000560 


934 


002312' 


000460 




935 


002314' 


011364 


004736* 


936 


•02320* 


016346 


000002 


937 


•02324' 


005764 


e04714* 


938 


•02330' 


001421 




939 


•02332' 


122716 


000220 


940 


•02336' 


001406 




941 


•02340' 


126716 


175630 


942 


•02344' 


001440 




943 


•02346* 


042713 


000020 


944 


•02352* 


0H0435 




945 


•02354' 


005064 


004714* 


946 


•02360* 


005764 


005016' 


947 


»02364* 


100003 




948 


002366* 


01 2764 


0000 If 


949 


002374' 


005767 


175564 
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; SUBROUTINE TO RECEIVE DATA 
; CALLED WITH A JSP. PC, REC 

{ AFTER SETTING LOCATIONS RECADRCR4) , RECCNT(R4) , PECTIM( R4) . VCTSAV ( R4 ) . 
; AND DVASAVCR4). RETURNS ON ERROR OR RETURNS 
;2 BYTES PAST CALL IF NO ERROR 

REC ! 



MOV 


(R6)«,RECRTN(R4) 


{SAVE RTN ADDR 


MOV 


VCTSAV(R4),R1 


•GET VECTOR ADR 


MOV 


f REClNT, (Rl) 


;MOVE IN INT, ROUTINE ADR 


ADD 


R4,(R1)* 


;CORRECT FOR WHICH LINE 


MOVB 


BR1,(R1) 


;MOV IN PRIORITY ' LEVEL 


CLR 


AB0RKR4) 


;CLEAR ABORT FLAG 


MOV 


I2.SYNCNT(R4) 


jMUST GET 1 SYN CHARACTERS 


TST 


FDFLAG(R4) 


j FULL DUPLEX? 


BEO 


It 


{BR IF NOT 


BIS 


I120»*DYASAV(R4) 


{KICK OFF REC 


MOV 


RECRTNC R4 ) , R2 


J GET RETURN ADDRESS 


ADD 


14, R2 


;FD RETURN 


MOV 


R2.R7 


; RETURN 


MOV 


•RDTO,R0 


{RETURN ADDR 


MOV 


RECTIM(R4),R1 


;HOH LONG TO WAIT 


MOV 


10, R2 


; SHOWS ITS A REC WAIT 


BIS 


tl20,0DVASAV(R4) 


{START THE RECIEVER, 


JMP 


TIMKEP 


{EXIT TO TIMKEP AND WAIT 


ER INTERRUPT ROUTINE 




BR 


It 




MOV 


R4,-(R6) 


;SAVE R4 


BOV 


R3,-(R6) 


;SAVE R3 


MOV 


12, R4 


;SET UP FOR SECOND LINE 


BR 


2t 




MOV 


R4,-(R6) 


{ SAVE R4 


MOV 


R3.-(R6) 


j SAVE R3 


CLR 


R4 


;SET UP FOR FIRST LINE 


MOV 


DvisAvr R4i . m 


•GET THE DEVICE ADDRESS 


TST 


AB0PT(R4) 


{GIVE UP? 


BEO 


3t 


;BP IF NO 


BIC 


1560, (R3) 


{DISABLE REC INT.S 


BR 


7t 


; AND LEAVE 


MOV 


(R3),CRRWD(R4) 


{SAVE STATUS 


MOV 


2(R3),-(R6) 


{SAVE CHARACTER AND ERR BI 


TST 


SYNCNT(R4) 


{ARE WE IN SYNC 


BEO 


5t 


{BR IF YES 


CMPB 


1220, (R6) 


{IS IT A OLE? 


BEO 


4t 


{BR IF YES 


CMPB 


SYNC, (R6) 


;IS IT A SYNC CHAR? 


BEO 


6t 


{ YES, IGNORE IT 


BIC 


120, (83) 


{RfcSYNC IF NOT 


BR 


6$ 


{ LEAVE 


CLR 


SYNCNT(R4) 


{ SHOW WE'RE IN SYN 


TST 


FDFLAG(R41 


{FD SLAVE? 


BPL 


5t 


{BR IF NOT 


MOV 


I10,TSYNCT(P4) 


{ LET TMT GO IF FULL DUP 


TST 


REPORT 


{ REPORT ERH NOW OR LATER? 
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950 


002400 * 


00101 3 


95 1 


902 402 * 


1 0576 4 


952 


002406 * 


1 00040 


95 3 


00241 0* 


0057 1 6 


954 


00241 2 * 


1 00006 


955 


00241 4 * 


01 2664 


956 


002420 * 


042764 


957 


002426 * 


0004 3 1 


958 


0024 30 


111674 


959 


0024 34 * 


005264 


960 


002440 * 


005 364 


96 1 


00 2 4 4 4 * 


003 406 


962 


002 446 


005726 


at i 




052 7 1 3 






01 2603 






01 2604 


OA 


002460 


000002 


OA7 


002 462 


01 6467 








969 




0427 1 3 




02476 * 


1 2603 


971 


002500 


01 2604 


97 2 


002502 




97 3 








002502 


000004 


975 






976 








0025 10 


*\ t 


978 


0025 1 2 * 


01 2603 


979 


00 2 5 1 4 * 


042774 


980 


00 2522 


01 2767 


981 


002530* 


060467 


982 


0025 3 4 * 


060467 




002540 


01 2604 


984 


£02542 




985 






986 


0025 42 


000004 


987 








00 2550 


00500 4 


QQO 


002552 * 


(J00402 


990 




01 2704 


991 


002560 




9 Qa 


002566 


016467 




002574 * 


01 6 401 


994 


002600* 


111102 


995 


002602 * 


042702 




002606 * 


005764 




00261 2 * 


1 0001 3 


99B 


00261 4 # 


^1 0267 




00262%* 




1000 






1001 


00262b* 


1 04404 


1002 






10*3 


002632" 


104400 


1004 






1005 







0047 36' 
100000 

004700* 
004700' 
004704' 



004732' 
000560 



000000' 



0046b4' 
000014 



000560 
002550' 
000010 
000004 



002550' 000000* 





BNE 


511 


; BR IF LATER 






TSTB 


ERRWD(R4) 


;IS REC DONE BIT SET? 






BPL 


RERR 


;BP IF NOT 






TST 


(R6) 


;DATA ERPOR? 






BPL 


51* 


; BR ir NO DATA ERR 






NOV 


CR6)+,ERRWD(R4) 


;SAVE INFORMATION 






BIC 


1 100000. ERRHD(R4) ; USE BIT 15 FOP 






BP 


RERR+2 






51 s : 


MOVB 


CR6),»RECADR(R4) 


; STORE THE CHAR 


in our r lp 




INC 


RECADR(R4) 


,FOR NEXT TIME 






DEC 


RECCNT(R4) 


[COUNT IT 






BLE 


88 


; BR IF DONE 




6S I 


TST 


(R6) + 


;FIX STACK 






Sn S 


•520, (R3) 


; HEAD ANOTHER 
[RESTORE R3 








(R6)+,R3 






MOV 


(R6)+,R4 


[RESTORE R4 






RTI 




; RETURN 




8SS 


MOV 


RECD(R4) , RPIR0+2 








TST 


(R6)t 


[FIX STACK 






BIC 


•560, (R3) 


[DISABLE REC INT, 3 
[ RESTORE REGS 






MOV 


(R6)+,R3 






MOV 


CR6)»,R4 






RPIRUl 












PIRQS i 


' RECONf BEGIN 


> RTI AND QUEUE 


UP TO CONTINUE AT 


* _ 

KERR t 


TST 


lR6) + 


jrix STACK 






MOV 


(R6)+,R3 


[RESTORE REG 






BIC 


»560.»DVASAV(R4) 


[RESET THE RECEIVER 




MOV 


»2S,l«+2 


[SET UP TO PIRO 


TO 




ADD 


R4,l»+2 


[ THE RIGHT PLACE 






ADD 


R4.1S+2 








MOV 


(R6)+,R4 


[RESTORE REG 




IS: 











000002 
004664' 
004736' 
004726* 

177760 
004736* 

175234 
002e00 



175262 3S: 
175256 



PIRQS, 


2$, BEGIN 


[ RTI AND QUEUE UP TO CONTINUE AT 


2S 


CLR 


R4 


[SHOW ITS LINE 




BR 


3S 






MOV 


12, R4 


J SHOW ITS LINE 1 




MOV 


DVASAV(R4),C8RA 


; SET UP FOR ERR CALL 




MOV 


ERRWDC R4 ) , ACSR 


[SET UP FOR ERR CALL 




MOV 


CURLIN(R4),R1 


[GET A DDR OF CUR LINE BYTE 




MOVB 


(R1),R2 


[GET VALUE OF LINE • 




BIC 


•177760, R2 


I THROW OTHER BITS AWAY 




TST 


ERRMD(R4) 


;IS IT A DATA OR LINE CHANGE ERR 




BPL 


DATAER 


[BR IF DATA ERR 




MOV 


R2, ASTAT 


[SET UP ERR INDICATION 




ADD 


1002000, ASTAT 


[SHOW WHICH TYPE 




ERRORS 


, BEGIN 


[DATA SET CHANGE 




EXITS 




[EXIT TO MONITOR. MODULE WAIT FOR 


INTEPUI 
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1006 


B02634* 


010267 


175214 




DATAER I 


MOV 


R2, ASTAT 


[SET UP ERR LINE • 


1007 


002640' 


116467 


004737* 


175207 




MOVB 


ERRND+ 1 ( K4) # ASTAT + 1 ; GET ERR TYPE 


10»8 


••02646* 


042767 


107400 


175200 




BIC 


1107400, ASTAT 


[LEAVE ONLY ERR BITS 


1009 


002654' 


005264 


005036' 






INC 


DTERR4CR4) 


[SEE NOTE 1 IN FRONT OF LISTING 


1010 

1011 


•0266*' 


1 04404 


000000' 






ERRORS 


, BEGIN 


[DATA ERR 


1012 
101 3 


002664* 


005767 


002146 






TST 


DTERR4 




1014 


002673' 


•01402 








BEQ 


IS 




1015 


002672' 


005004 








CLR 


R4 




1016 


•02674' 


000402 








BP 


2S 




1017 


002676' 


012704 


000002 




1S1 


MOV 


12, R4 




1018 


•02702* 


005364 


005036' 




2S: 


DEC 


DTERR4CR4) 




1019 
1020 










[CHECK 


ASTAT 


IN ERROR MESSAGE 




1021 










[0100XX 


■ REC 


DATA PARITY ERROR 




1022 










[0200XX 


« FRAMING ERROR 




1023 










[0400XX 


a OVERRUN 




1024 










[XX * PHYSICAL 


LINE • 




1025 










! 








1076 


•02706* 


000167 


000224 






JMP 


RRET 


[GO DO AN ERROR EXIT 


1027 
1028 


















1029 


















1030 


•02712' 


005004 






RECDNt 


CLR 


R4 


[SHOW WE'RE LINE 


1031 


•02714' 


900402 








BR 


IS 




1032 


•02716' 


•12704 


000002 






MOV 


12, R4 


[SHOW WE'RE LINE 1 


1033 


•02722' 


042774 


177771 


004664' 


1*1 


BIC 


1177771, »DVASAVCR4) [SHUT UP DEVICE 


1034 


•02730' 


•05064 


005022' 






CLR 


RCVT0(R4) 


[RESET TIME OUT RETRY COUNT 


1035 


•02734* 


005767 


000000G 




36: 


TST 


CKMSG 


[IS CHECK MSG ROUTINE BUSY? 


1036 


•02740* 


001420 








BEQ 


6S 


[BR IF NOT 


1037 


•02742* 


005264 


005062' 






INC 


CHKR4(R4) 


[SEE HOTE 1 IN FRONT OF LISTING 


1038 


•02746' 


104407 


000000* 






BREAKS, BEGIN 


[TEMPORARY RETURN TO MONITOR.... 


1039 


•02752* 


1 04407 


000000* 






BREAKS 


, BEGIN 


[THEN CONTINUE AT NEXT INSTRUCTION . 


1040 


P02756' 


005767 


002100 






TST 


CHKR4 




1041 


•02762' 


001402 








BEQ 


4$ 




1042 


•02764* 


005004 








CLR 


R4 




1043 


•02766' 


000402 








BR 


5S 




1044 


•02770* 


012704 


000002 




4St 


MOV 


(2,R4 




1045 


•02774' 


005364 


005062* 




5s: 


DEC 


CHKR4(R4) 




1046 


•03000' 


000755 








BR 


3S 




1047 


003002' 


016402 


004674* 




6s: 


MOV 


AMSGBF(R4),R2 


[GET REC DATA 


1048 


•03006* 


•26762 


177776G 


000006 




CMP 


MSG>2,6(R2) 


[IS HEADER CRC OK? 


1049 


O03014' 


•01407 








BEQ 


7» 


[BR IF OK 


1050 


•03016' 


005767 


175142 






TST 


REPORT 


[REPORT ERROR NOW? 


1051 


•03022' 


•01055 








BNE 


X5 


[BP IF LATER 


1052 


•03024' 


•12767 


003000 


175*22 




MOV 


•003000, ASTAT 


[SHOW ERR TYPE 


105 3 


•03032* 


000466 








PR 


RECERP 




1054 


•03034' 








7s: 








1055 


•03034' 


1 17467 


004726* 


P00040 




MOVB 


?CURLIN(R4) , 9S 


[GET LINE. I 


1056 


•03042' 


042767 


177760 


000032 




BIC 


•177760,9$ 


; LEAVE ONLY LINE BITS 


1057 


•03050' 


005767 


1751 10 






TST 


REPORT 


[REPORT BAD DATA? 


1058 


•03054* 


001403 








bEO 


8S 


[BR IF YES 


1059 


•03056' 


052767 


10000P 


*»f»0d 1 6 




BIS 


•100000,9$ 


[SET FLAG TO CKMSG 


1060 


•03064' 


062702 


000010 




85 : 


ADD 


110, R? 


[GET ADDR OF MSG 


106! 


&0307>»' 


l»10267 


0000 If 






MOV 


P2,<»8*2 





NPBA DEC/X11 SYSTEM EXERCISER MODULE MACY11 27(732) 20-***"™ 12:29 PAGE 23 
iiPBA.Pil 



SEQ 0115 



1062 


003074' 


004567 


000002G 






JSR 


R5,CKMSG+2 


;GO CHECK MSG 


1063 


903100* 


900000* 








BEGIN 






1064 


•03102' 


000000 






9$: 









106S 


903104* 


000000 















1066 


B83SS6' 


900417 








BR 


X4 


;3kV RETURN 


1067 


803110* 


066702 


000000G 






ADD 


HSGSIZ,R2 


•POINT IT TO MSG CRC, DATA WAS OK 


1068 


003114* 


126722 


000000G 






CHPB 


CRCMSG, ( F?) ♦ 


JcHECK 1ST CRC BITE 


1969 


903120' 


901025 








BNE 


CER 




1070 


903122* 


126722 


000001 G 






CHPB 


CRCMSG+1, (R2)+ 


;CKECK SECOND 


1071 


903126* 


001022 








BNE 


CER 




1072 


903130' 


062764 


000002 


004746' 




ADD 


f 2,RECRTN(R4) 


;GOOO RETURN 


1073 


9031 36* 


005064 


005122' 




BRET: 


CLR 


RETTABCP4) 


{KILL IMPENDING TIMEOUTS 


J 87 4 


903142' 


90017 4 


054746' 






■JmP 


SRECRtNCk*} 


*AND GO BACK 


1075 










; 








1076 










; 








1077 


903146' 


005767 


175012 




X4: 


TST 


REPORT 


J REPORT ERR NOW OR LATER? 


1078 


903152* 


001001 








BNC 


X5 


; BR IF LATER 


1079 


003154* 


900770 








BR 


RRET 


{OTHERWISE RETURN 


1080 










; 








1081 


903156' 


117402 


004726' 




X5: 


MOVB 


»CURLIN(R4),R2 


; GET CURRENT LINE « 


1082 


003162' 


042702 


177760 






BIC 


*177769,R2 


7 


1083 


903166' 


105262 


000252' 






INCB 


ECOUHTCR2) 


;COU»T An ERROR FOR THAT LINE 


1084 


903172* 


000761 








BR 


RRET 


•AND RETURN 


1085 










; 








1086 










; 








1087 


903174' 


005767 


174764 




cer: 


TST 


REPORT 


{REPORT NOW OR LATER? 


1088 


903200' 


001 366 








BNE 


X5 


{BR IF LATER 


1089 


903202* 


012767 


004000 


174644 




KOV 


S004099, ASTAT 


j INDICATE ERROR TYPE 


1090 


903210' 


1 17402 


004726' 




RECErr: 


MOVB 


•CURLIN(R4),R2 


; GENERATE LINE t 


1091 


003214* 


042702 


177760 






BIC 


f 177760.R2 




1092 


903220' 


050267 


174630 






BIS 


R2, ASTAT 


Jadd IN LINE t 


1093 


903224' 


005264 


005042' 






INC 


CRCR4CR4) 


; SEE NOTE 1 IN FRONT OF LISTING 


1094 












; #*#*• 


»»•«•••«••••«••*••*••••*••»«•••••••*••••••••••••••••••••*• 


1 095 


003230' 


1 04404 


000000 * 






ERRORS 


.BEGIN 


jCRC ERROR 


1096 












; »♦»*»»*»♦#**»»»»»»»•»•»•»»»*»»*»*»»»**»»*»»»*#»»»•»****»»**♦»»» 


1097 


003234' 


005767 


001602 






TST 


CRCR4 




1098 


003240' 


001402 








BEQ 


11 




1099 


903242' 


005004 








CLP 


R4 




1 100 


003244' 


000402 








BR 


2* 




1 101 


00324b' 


012704 


000002 




1*: 


MOV 


»2,R4 




1 102 


003252' 


005364 


005042* 




28: 


DEC 


CRCR4(R4) 




1103 


903256' 


000167 


177654 






JMP 


RRET 


{BAD RETURN 


1 104 

1105 










* 

spead time out 


ROUTINE 




1 106 










; 








1107 


003262' 


012764 


177777 


004722* 


RDTO: 


MOV 


#177777, ABORTCR4) JTELL INT ROUTINES TO GIVE UP 


1108 


f«03270' 


005264 


005022* 






INC 


RCVTO*R4) 


;COUNT ANOTHER RETRY 


1 109 


00 3 2 7 4 ' 


026467 


005022' 


1 74670 




CMP 


RCVTO(R4),ERRLVL 


>E«OUGH TRYS? 


1 110 


003302' 


001043 








BNE 


4* 


; BR IF NO 


1111 


003304' 


017467 


004664' 


174540 




MOV 


»DVASAV(R4), ACSR;GET RCC STATUS 


1112 


903312* 


042774 


177771 


004664* 




BIC 


1177771. 9DVASAV(R4) ;KILL ALL BUT DTP 


! 1 ! 3 


903320* 


016467 


004664' 


174522 




MOV 


DVASAV(R4),CSRA 


jPUT ADDR IN FOR ERR CALL 


1114 


003326' 


016401 


004726* 






MOV 


CURLIN(R4),R1 


j GET ADDR OF CUR LINE BYTE 


1115 


003332* 


111102 








MOVB 


CRl ) . R2 


{GET VALUE OF PHY LINE t 


1116 


003334' 


042702 


177760 






BIC 


1177760, R2 


; THROW OTHER BITS AWAY 


1117 


003340' 


062702 


001000 






ADD 


*1000,R2 


; INDICATE REC TIMEOUT ERR 
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1118 
1119 
1120 
1121 
1122 

1124 
1125 
1 1 26 
1 127 
1128 

I 129 
1130 
1131 
1 132 
1133 

I I 34 
1135 
11 36 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1 145 
1 146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 

1155 
1156 
1157 
1158 
1159 
1 160 
1161 
1 162 
1163 
1164 
1165 
1 166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 



003344' 


010267 


174504 




MOV 


R2, ASTAT 


;SET UP FOR ER CALL 


003350' 


005264 


005046' 




INC 


RCT0R4(R4) 


;SEE NOTE 1 IN FRONT OF LISTING 










•a************************************************************** 


003354' 


1 04404 


000000' 




ERRORS 


BEGIN 


;REC TIMED OUT 










; *»»♦*»«»»»»»#*»*»»»»*•»»»»»»»»#»»*»***»»***»*»»*»«*»»*»»*»»»*** 




005767 


301462 




TST 


SCTQR4 




003364' 


001402 






BEQ 


IS 




003366' 


005004 






CLP 


R4 




003370* 


000402 






BR 


2S 




903372' 


012704 


000002 


1$: 


MOV 


• 2,R4 




003376* 


005364 


005046' 


2$: 


DEC 


RCT0R4(R4) 




903402' 


005064 


005022' 




CLR 


RCVT0(R4) 


; RESET RETRY COUNT 


003406' 


000174 


004746' 


3S: 


JHP 


»RECRTN(R4) 


; ERROR RTN 


•03412' 


016401 


004726' 


4S S 


MOV 


CURLIN(R«),R1 


; GET ADDR OF CUR LINE 


003416* 


1 05361 


000020 




DECB 


20(R1) 


;DEC ERROR COUNT TO CORRECT FOR 














;INSUING INC 


003422' 


005364 


004742' 




DEC 


L00P(R4) 


jCORRECT FOR LATER CALLING THIS A GOOD RUN 


903426* 


000767 






BR 


38 


; RETURN 



J SUBROUTINE TO TRANSMIT DATA 
.•CALLED WITH A JSR PC,TMT 

•AFTER SETTING LOCATIONS TXADRKR1), TXADR2 ( R4 ) . TXCNT1 ( R4 ) . TXCNT2 C P4 ) , TMTIMCR4), 
VCTSAV(R4), DVASAV(R4), SUBROUTINE CTS MUST BE CALLED FIRST. 
RETURNS ON ERROR, RETURNS 2 BYTES PAST NORMAL RETURN 
IF NO ERROR 



903430' 


012664 


004776' 


TMT: 


MOV 


(SP)+.TMTRET(R4) 


I SAVE RTN ADDRESS 




003434' 


005064 


005002' 




CLR 


TMTDON(R4) 


; INITIALIZE FLAG 




003443' 


016401 


00467S»* 




MOV 


VCTSAV(R4),R1 


j GET REC VECTOR ADDRESS 




003444' 


062701 


000004 




ADD 


14, Rl 


; MAKE IT TMT VECTOR 




903450' 


012711 


003604' 




MOV 


ITHTINT, (Rl ) 


;MOVE IN INT ROUTINE ADDRESS 




903454* 


060421 






ADD 


R4,(R1)+ 


jCORRECT FOR WHICH LINE 




903456' 


116711 


174330 




MOVB 


BR1, (Rl) 


•MOV IN PRIORITY LEVEL 




003462' 


005064 


004722* 




CLR 


ABORTCR4) 


;CLEAR TIME OUT ABORT FLAG 












MQV 


81S5TSYNCTCR4) 


•SEND TEN SYN CHARACTERS 




003474' 


016403 


004664' 




MOV 


DVASAV(R4),R3 


• GET DEVICE ADDRESS 




003500' 


005764 


005016' 




TST 


FDFLAG(R4) 


; ARE WE FULL DUPLEX? 




003504' 


001417 






BEQ 


2S 


; BR IF NOT, ELSE 




903506' 


1 00003 






BPL 


IS 


;SKIP IF MASTER 




903510' 


012764 


177777 


00500b' 


MOV 


*177777,TSYNCT(R4) ; MAKE TMT WAIT FOR A 


REC 'D 


90351b' 


012763 


000120 


000004 is: 


MOV 


1120, 4(R3) 


;SET TMT INT ENABLE 




003524' 


012763 


000400 


300006 


MOV 


•400,6(R3) 


;XMIT START OF MESSAGE. 




993532* 


016402 


004776* 




MOV 


TMTRET(R4) ,R2 


: GET BAD RET ADDR 




903536' 


0627 02 


000004 




ADD 


• 4,R2 


; MAKE IT THE FULL DUPLEX RETURN 


903542' 


010207 






MOV 


R2,P7 


; AND RETURN 




"03544' 


<M2700 


»04036' 


2S: 


MOV 


•TXTO.R0 


;TIME OUT RETURN ADDR 




903550* 


016401 


004772* 




MOV 


TMTTIMCR4) . Rl 


{HOW LONG TO WAIT 




003554' 


012732 


000004 




MOV 


• 4,R2 


;SHOW ITS TRANSMITTER 




093564* 


016403 


004664' 




MOV 


DVASAV(R4),R3 


; GET THE STATUS REG 




•03564' 


012T63 


00012tf 


000004 


MOV 


1120, 4(P3) 


;SLT TMT INT ENABLE AND SEND 


RIT 


0f3572* 


01 2763 


00040? 




MOV 


1400, 6(R3) 


;XMIT START OF MESSAGE. 




903600' 


000167 


000502 




JMP 


TIMKEP 


{EXIT TO TIMKEP AND WAIT 
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SEQ 0U7 



1174 

1175 
1 176 
1177 
1178 
1179 
1 18k) 
1181 
1 182 
1183 
1184 

ties 

1 186 
1187 
1 188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1 199 
1200 
1201 
1202 
170] 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
121 4 
1215 
1216 
121 7 
1718 
1219 
1720 
1221 
1722 
1 273 
1224 
1225 
1226 
1227 
I 228 
1229 



' TMT INTERRUPT ROUTINE 



0B3604' 


000405 






T«TINt: 


BR 


IS 




003606* 


010446 








MOV 


R4,-(SP> 


;SAVE R4 


003610* 


810346 








MOV 


R3,-(SP) 


jSAVE R3 


•03612' 


012704 


000002 






MOV 


12, R4 


;SET TO LINE 1 


•03616' 


000403 








BP 


2S 




•03620' 


010446 






IS: 


HOV 


R4,-(SP) 


;SAVE R4 


•03622" 


•10346 








MOV 


R3,-(SP) 


(SAVE R3 


003624' 


00S004 








CLR 


R4 


jSET TO LINE 


•03626' 


005764 


•04722' 




2S: 


TST 


AB0RT(R4) 


;GIVE UP? 


•03632' 


100417 








BMI 


TIEXIT 


(BR IT YES 


•03634* 


016403 


004664' 






MOV 


0VA3AV(R4),R3 


; GET DVA 


•03640' 


005764 


•04762' 






TST 


TXCNTl CR4) 


;FIRST BUFFER TMT'ED? 


•03644' 


001015 








BNE 


TTBUF 


; BR IF NOT 


B03646* 


005764 


004766 * 






TST 


TXCNT7CR4) 


(SECOND BUFFER TMT'ED? 


•03652" 


001 437 








BEQ 


TIDONE 


; BR IF YES 


•03654' 


1 1 7463 


004756' 


0M0006 




MOVB 


*TXADR2(R4),6CR3) jSEND NEXT BYTE 


•03662" 


005264 


004756' 






INC 


TXADR2CR4) 


;MOV ADDRESS POINTER 


•03666' 


005364 


004766 ' 






DEC 


TXCNT2(R4) 


;COUNT IT 


•03672' 


01 2603 






TIEXIT: 


MOV 


(R6)*,R3 


; RESTORE R3 


•03674' 


012604 








HOV 


(R6)+,R4 


; RESTORE R4 


•03676' 


i»40002 








RTI 




j RETURN 


•03700' 


•05764 


•05006' 




FTBUFf 


TST 


TSYNCT ( R4 ) 


j SENT ENOUGH FILL CHAPS7 


•03704' 


001407 








BEQ 


29 


; BR IF YES 
















;IF NEGITIVE 


•03706' 


1 00402 








BMI 


IS 


; SEND TILL RECINT CLEAPS TSYNCT 


•03710' 


005364 


005006' 






DEC 


TSYNCT(R4) 


;ELSE COUNT IT 


•03714' 


1 16763 


174254 


000006 


13: 


MOVB 


SYNC,6(P3) 


;SEND IF YES. 


•03722* 


•00763 








BR 


TIEXIT 


i AND LEAVE 


•03724' 


1 1 7463 


•04752' 


000006 


2$: 


MOVB 


•TXADR1(R4)»6(R3) J SEND NEXT BYTE 


•01732' 


042763 


000400 


000006 




BIC 


4400, 6CR3) 


;ASSURE CLEAR TSOM BIT, 


603740' 


•05264 


004752' 






INC 


TXADRl (R4) 


;MOVE ADDRESS POINTER 


•03744' 


•05 364 


•04762' 






DEC 


TXCNTl (R4) 


.-COUNT IT 


•03750' 


000750 








BP 


TIEXIT 


; AND LEAVE 










;ALL CHAP'S HAVE BEEN TMT'ED 




•03752* 


047763 


000120 


000004 


TIDONEl 


BIC 


1120, 4(P3) 


(KILL TMT'ER 


003760* 


•12603 








MOV 


(R6)+,R3 


; RESTORE R3 


•03762* 


•05064 


005126' 






CLR 


RETTAB+4CR4) 


; KILL IMPENDING TIMEOUT 


003766' 


062764 


000002 


004776' 




ADD 


I2,TMTRET(R4) 


; MAKE IT A GOOD RETURN 


•03774' 


005704 








TST 


R4 


; LINE OP 1 


•03776' 


001004 








BNE 


IS 


;BR IF LINE 1 


•04000' 


•12604 








MOV 


(R6)+,R4 


; RESTORE R4 


•04002' 


000004 


004020* 


000000' 




PIRQS 


29, BEGIN 


( RTI AND QUEUE UP TO CONTINUE AT 2S 


•8401«t' 


PI 2604 






is: 


MOV 


(R6)+,R4 


; RESTORE R4 


•04012' 


000004 


004026' 


00000P)' 




PIRQS 


3$, BEGIN 


; RTI AND QUEUE UP TO CONTINUE AT 3S 


904020' 


005004 






2s: 


CLP 


R4 


;SET TO LINE 


004022* 


0001 74 


004776* 






JMP 


PTHTRET ( R4 ) 


j RETURN 


•04026' 


012704 


000002 




3s: 


MOV 


12, R4 


(SET TO LINE 1 


•04032' 


•00174 


•04776' 






JMP 


BTMTRETCR4) 


; RETURN 



»<PBA DEC/X11 SYSTEM EXERCISER MODULE 



NPB» . P 1 






1210 






1231 






1232 






1233 


•04036' 


01 2764 


1234 


904044' 


016407 


1235 


•04052' 


062767 


1 236 


•04060' 


01 7767 


1237 


•04066* 


047777 


1 238 


•04074" 


1 16763 


1239 


•04102' 


052763 


1 240 


•04110" 


016401 


1241 


•041 14' 


1 1 1 107 


1242 


••4116' 


•47702 


' ?* ? 


• >M! J?' 


««-2?32 


1244 


•04126' 


010267 


1245 


•04132' 


005264 


1746 






1247 


•041 36* 


1 04404 


124B 






1249 


•04142' 


005767 


1250 


•04146' 


001402 


1251 


•04150' 


005004 


1252 


•04152* 


000402 


1253 


#04154' 


012704 


1754 


•04160' 


•05364 


1255 


•04164' 


0001 74 


1756 






1257 






1758 






1759 






1760 






1761 






1262 






1263 


•04170' 


012664 


1264 


•04174' 


016401 


1265 


•04200" 


012711 


1266 


#04 204' 


060421 


1267 


•04206' 


1 1671 1 


1268 


•04212' 


032774 


1269 


•04220' 


001 402 


1270 


•04272" 


016407 


1271 


•04226' 


012774 


1272 


•04234" 


1 B44P0 


1273 






1274 


004236' 


000403 


1275 






1276 


004240' 


000004 


1277 






1278 


•0424b" 




I27» 






1 280 


•04246' 


t>,10004 


1281 






1 282 


•04254* 


01 27CI4 


1283 


•04260' 


000401 


1 284 


•04262' 


005004 


1285 


B04264* 


037774 
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(ROUTINE IF TRANSMIT TIMES OUT 



177777 

004664' 

000004 

173764 

177767 

174074 

000400 

•04726' 

177760 

173722 
005052* 

•00000' 

000704 



000002 

005052' 

•04776' 



004722' 

173776 

17377C 

173764 

173754 

000006 

000006 



IS: 

2$: 



HOV 


1177777, AB0RT(R4) (TELL INT ROUTINES TO GIVE UP 


MOV 


DVASAV(R4),CSRA 


; GET ADDP OF STATUS 


ADD 


I4,CSRA 


; MAKE IT TMT CSP 


MOV 


0CSPA,ACSP 


;SAVE STATUS 


BIC 


1 177767, CCSRA 


; K ILL TRANSMISSION AND INT 


HOVB 


SYNC, 6 (R3 ) 


; IDLE WITH SYN CHARACTER. 


BIS 


#400,6(R3) 




MOV 


CURLIN(R4),P1 


; GET ADDP OF CUP LINE 


HOVB 


CR1),R2 


j GET VALUE 


BIC 


1177760, R2 


j LEAVE ONLY LINE • 


ACD 




; INDICATE T"T TIMEOUT 


MOV 


R2, ASTAT 


;SET UP FOR ERROR CALL 


INC 


TXT0R4CR4) 


; SEE NOTE 1 IN FRONT OF LISTING 


ERRORS 


BEGIN 


; TMT TIMEOUT 


TST 


TXT0R4 




BEQ 


IS 




CLR 


R4 




BR 


2$ 




MOV 


#7, R4 




DEC 


TXT0R4(R4) 




JMP 


•TMTRET ( R4 ) 


; BAD RETURN 



SUB GETS CLEAR TO SEND FOR LINE IN DVASAV(R4) AND VCTS»V(R4) 



005017' 




Cts: 


MOV 


(R6)+,CTSRET(R4) 


(SAVE RET ADDRESS 






004670' 






MOV 


VCTSAV(R4) 


Rl 


; GET VECTOR ADDR 






004236' 






MOV 


ICTSlNT, (R1 ) 


[MOV In INT ROUTINE ADDS 












ADD 


R4, (Rl )+ 




(SHOWS WHICH LINE 






I73t>00 






MOVB 


BR1, (Rl) 




; GET BR 1 LEVEL 






020000 


004664* 




BIT 


120000, BDVASAVCR4) 1 IS CLEAR TO SEND UP? 












BEQ 


RTSSET 




; BR IF NOT 






005012' 






MOV 


CTSRET(R4) 


R7 


(RETURN 






000046 


004664' 


rtsset: 


MOV 


•46,9DVASAV(H4) 


;SET REQ TO SEND 












EXITS 






;EXIT TO MONITOR. MODULE WAIT 


FOR 


1NTERUP 






;INT ROUTINE 
















CTSINTi 


BR 


19 




(DIFFERENT PIRQ'S 






004254' 


00P00H ' 




PIRQS 


29, BEGIN 




; RTI AND QUEUE UP TO CONTINUE 


AT 


2S 






1$: 














004262' 


000000 " 




PIRQS 


39 , BEGIN 




! RTI AND QUEUE UP Tu CONTINUE 


AT 


39 


0(10002 




2$ : 


MOV 


• 2,P4 




(SET UP FOR LIi»F. 1 












BR 


4$ 














3s : 


CLR 


R4 




; SET UP FOR LINE 






P2000H 


0046M * 


4$ ; 


BIT 


120000, «DVASAV(R4) (IS CLEAR TO SEND 5FT? 
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SEQ 0119 



1286 
1287 
1288 
1289 
1293 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1 340 
1301 
1302 
1303 
1304 
1 305 
1306 
1 307 
1308 
1309 
1310 
1311 
1 312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1 328 
1329 
1 330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 



904272' 
#04274' 
■04302' 



001755 

042774 00004(1 004664' 
016407 005012* 



004306' 
004310' 
004314' 
#04322' 
004326' 



004332' 
004340' 
004342' 
004344' 
004346" 
004350' 
004352' 
804356* 



EJ4362* 
004366' 
004370' 
004372* 
004376* 
004400' 
0044(94' 
004406' 

004412' 
004416' 
004420' 

fr04422* 
004430* 
004434* 
004440' 
004444' 



060402 
010162 
067762 
010462 
010062 



022767 
001410 
005704 
001402 
005004 
000402 
012704 
000167 



012702 
005722 
001026 
020227 
001 373 
035767 
001402 
000167 

005767 
001401 
104400 

012767 
104437 
104407 
005067 
000746 



005112' 

000000G 005112' 

005132' 

005122' 



000002 000360 



000002 
174310 



005122' 

005132' 

000424 
000064 
000410 



000001 
000000' 
000000' 
000362 



BEQ RISSET ;G0 TRY AGAIN IF NOT 

BIC I40,»DVASAV(R4) -DISABLE DATA SET CHG INT'S 

MOV CTSRET(R4),R7 j RETURN 



ALL ROUTINES COME HERE WHILE WAITING FOR I/O 
ROUTINE EITHER KICKS OFF SECOND LINE. NOTIFYS 
ROUTINES OF TIMEOUTS, OR JUST DOES BREAKS. 
I/O ROUTINES THAT FINISH UP BEFORE TIMEOUT VALUE 
MUST CLEAR LOCATION PETTAB(R4) *0 IF RECEIVER OP +4 
IF TMT. 

CALLED WITH A JMP TO TIMKSP AFTER LOADING 
R0 * WHERE TO RETURN IF TIM OUT 
Rl ■ HOW LONG TO WAIT (IN SECONDS) 

R2 ■ IF ITS A REC TTHEING OR 4 IF ITS A T«T WAIT 
R4 ■ FOR ACTIVE LINE 0, 2 FOR ACTIVE LINE 1 



TIHFEpt ADD 
MOV 
ADD 
MOV 
MOV 



CMP 

BFQ 

TST 

BEQ 

CLR 

BR 

MOV 

JMP 



r4,r2 ;FIGURE OUT WHICH TABLE ENTRY 

R1,TIMTAB(R2) ;STORE HOW LONG TO WAIT 
CTlME, TIMTAB( R2 ) ) ADD PRESENT TIME 



R4f R4TARCR2) 
R0,RETTAB(R2) 



I2,LINACT 

TIMCHK 

R4 

It 

R4 



21 

*2,R4 
GETNXT 



j SAVE WHICH ACTIVE LINE 
; WHERE TO RET TO, PLUS 
;IF THIS ENTRY IN TABLE IS 
;0 THEN NO TIMEOUT WILL 
;OCCUR FOR THIS ENTRY SET 
; ARE 2 LINES GOING? 
j BR IF YES 
; ARE WE LINE 0? 
; BR IF YES 
j IF NO MAKE IT 

;WE WERE SO NOW DO 1 
;GO DO OTHER LINE 



TIMCHK: 


MOV 


•RETTAB, R2 


;GET ADDR OF TIME STATUSES 


is: 


TST 


(R23 + 


j ANY WAIT GOING ON? 




3NE 


4t 


;BR IF YES 


lit: 


CMP 


R2, IRETTAB+10 


; ARE WE DONE LOOKING 




BNE 


It 


; BR BACK IF NO 






PAST IS 


•TIME FOR END OF PASS 




BEQ 


2t 


f BR IF NO 




JMP 


EPASS 


fGO REPORT END OF PASS 


2$: 


TST 


BRKFLG 


•ARE WE ALREADY IN A BREAK? 




BEQ 


3t 


"BR IF NO 




EXIT! 




•EXIT TO MONITOR. MODULE WAIT FOR INTERUPT. 


3S: 


MOV 


• 1 » BRKFLG 


-SHOW WERE DOING BREAK 




BREAKS 


BEGIN 


; TEMPORARY RETURN TO MONITOR.... 




BREAK* 


BEGIN 


; THEN CONTINUE AT NEXT INSTRUCTION. 




CLR 


BRKFLG 


;SHOW WERE BACK 




BR 


TIMCHK 
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NpBA.Pll 






1342 


004446* 


905742 




1343 


004150' 


027762 


000000G 


1344 


004456' 


003002 




1 345 


004460* 


005722 




1346 


004462* 


0007 4 3 




! 347 








1 348 


004464' 


016204 


000010 


1349 


004470' 


01 1203 




1350 


004472* 


005012 




1351 


004474' 


010307 




1352 








1353 








1 354 








1 355 








1356 








t 357 








1 358 


004476' 


005767 


173462 


1 359 


004502' 


001461 




1 360 


004504' 


005267 


000146 


1 361 


004510' 


f»?6767 


000142 


1 362 


004510* 


B01053 




1363 


004520* 


005067 


000132 


1 364 


004524' 


01270,3 


000212' 


1365 


004530' 


912701 


011306* 


1 366 


004534' 


105710 




1 367 


004536* 


1.J0403 




1 368 


00454k)' 


0127H 


054130 


1369 


004544* 


000427 




1370 


004546' 


1 16002 


000040 


1371 


004552' 


195060 


000040 


1372 


•04556' 


022702 


00007 7 


1 373 


094562* 


002416 




1374 


004564' 


010203 




1375 


004566' 


042703 


17777H 


1376 


004572' 


062703 


000060 


1377 


004576* 


1 10361 


000001 


1378 


004602 ' 


id62<*2 




1 379 


004604' 


006202 




1 380 


304606' 


006202 




1381 


004610* 


962702 


0001364* 


1382 


004614' 


110211 




1 383 


03461b' 


000402 




1 384 


1*04620' 


012711 


042102 


1385 


004624* 


005200 




1386 


004626* 


062701 


000010 


1387 


004632' 


020027 


000232' 


1388 


004636' 


001 336 




1389 


004640* 


104411 


004652' 


1 390 








1391 








1 392 


004646* 






1 393 


004646* 


1 04 102 


000000' 


1 394 








1 395 








1 396 


004652' 


01 1212' 




1397 


004654* 


1 77777 





TST 


-(R2) 


;MOVE R2 BACK 


CMP 


*TIME,-10(R2) 


;IS TIME UP? 


BGT 


5* 


•BR ir YES 


TST 


CR2) + 


jBUMP R2 BACK AGAIN 


BR 


Ut 


;G0 CHECK OTHERS 


MOV 


10{R2),R4 


;SET R4 CORRECTLY FOR WHICH LINE 


MOV 


(R2),R3 


•SAVE RETURN 


CLR 


(R2) 


•CLEAR THIS ENTRY 


MOV 


P3,R7 


;JMP TO TIME OUT ROUTINE 



EPASS DOES END OF PASS CALL AND PRINTS ERR SUMMARY 
IF LOCATION REPORT IS NOT 



3S: 
4$: 



TST 

BEQ 

INC 

CMP 

BNE 

CLR 

MOV 

MOV 

TSTB 

BHI 

MOV 

BR 

MOVB 

CLPB 

CMP 

BLT 

MOV 

BIC 

ADD 

MOVB 

A$R 

ASP 

ASR 

ADD 

MOVB 

BR 

MOV 

INC 

ADD 

CMP 

BNE 

MSGNti 



;D0 ERR SUM OR NOT 
; BR IF NO 
j COUNT A PASS 
; TIME FOR A MSG? 
•IF NOT, BR 

•FIND WHICH LINES ARE PUNNING 
; POINTS TO MSG 
•IS LINE IN USE? 
;BR IF YES 

•PUT XX IN I OF ERRS 



REPORT 
5S 

MSGCNT 

HSGCNT, REPORT 
5t 

HSGCNT 
IPHYTAB,R0 
•SUM1+4,R1 
(R0) 
2$ 

154130, (Rl) 
4* 

32.(R0),R2 ;GET I OF ERRS 

32. (RP) ! CLEAR THE COUNT FOR NEXT PASS. 

177, R2 j AMY GOOD MSGS 

3S j BR IF NO 

R2,P3 ;PUT IN MSG 

tl77770,R3 ; LEAVE ONLY LOW DIGIT 

160, R3 ; MAKE IT ASCII 

R3.KR1) jSTORE IT AWAY 

R? ; GET NEXT DIGIT 

R2 

R2 

460, R2 [MAKE IT ASCII 

R2, (Rl ) I PUT IT IN M5G 

4S 



•42102, (HI) 



•10, Rl 

R0, (PHYTAB* 20 



MSUM, BEGIN 



FNDPSS, BEGIN 



jPUT IN A 'BD' FOR BAD 
;BUMP LINE POINTER 
•POINT TO NXT MSG 
;DONE 

;G0 DO MORE 

;ASCII MESSAGE CALL WITH COMMON HEADER 



{SIGNAL END OF PASS. CONTINUE AT RE5TRT 
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SEO 0121 



1 398 












004656 * 


000000 


msgcnt: 





t 400 


004660' 


000000 










004662 ' 


000000 


NXTlIn : 


1 402 


004664 * 


000000 


DVASAVl 







00466b * 


000000 







1 iu( 


1104670* 


000000 


VCTSAV: 




1 405 


004672* 


000000 







t 406 


00467 4 * 


005 1 42 * 


AMSGBF; 


M3GBF0 




004676 * 


007 1 62 ' 




MSGBF 1 


1408 


V0470f * 


000000 


RFC ADR 1 





1 409 


004702* 


000000 






1410 


•04704' 


000000 


RECCNT I 


jjj 


1411 


004706' 


00000(1 






1412 


•31710' 


000000 


RECTIM j 


■J 


1413 


004712' 


000000 






1414 


9047 1 4 * 


000000 


S YNCNT S 




1415 


004716' 


000000 






1416 


004720 ' 


000000 


LINACT: 




1417 


004722 ' 


000000 


ABORT j 




1419 


004724 ' 


000000 






1419 


004726 ' 


000000 


CUPLINl 




1420 


0047 30 ' 


000000 








0047 32 " 




RECDl 


RECON 


1422 


0047 31' 


002716' 






1423 


P047 36 * 


000000 


ERRWDi 




1 424 


£347 40 * 


000000 






14 25 


904742 * 


000000 


LOOP 




1 426 


004744 * 


000000 






1427 


•04746' 


000000 


RECRTN: 




1428 


004750* 


000000 






1 429 


004752' 


000000 


TXADR1 : 




14 30 


004754* 


000000 






1431 


004756* 


000000 


TXADR2 ! 




1432 


004760 * 


000000 






14 3 3 


004762' 


000000 


TXCNT1 t 




1434 


004764* 


000000 







1435 


004766* 


000000 


TXCHTJ: 


a 


1 4 36 


004770 * 


000000 







14 37 


004772' 


000000 


TNTTIMj 







00477 4* 


000000 




* 


1439 


904776 ' 


000000 


THTRETJ 






005000 * 


000000 






1441 


005002 * 


000000 


TMTDON: 




1 442 


005004 * 


DP VWYJ 








005006 * 




TSYNCTl 




1 444 


0050 1 * 


000000 






1445 


0050 12* 


000000 


CTSRET: 







0050 14' 


HAAflfl Jl 
ITvvlWO 






1447 


005016* 


000000 


FDFLAGl 





1448 


005020' 


000000 







1 449 


005022' 


000000 


RCVTOl 





1450 


005024' 


000000 







1451 


005026' 


000000 


BRKFLC: 





1 452 


00503d' 


000000 


PASTIN1 





1453 


005032* 


000000 


DP0PR4: 






jEXIT FLAGS 



;COUNTS END PASSES FOR MESSAGE CALL 

7 USED FOR BIC'ING IN LOOPS 

; ADR OF NEXT LIN 

.HOLDS OVA FOR ACTIVE LI0 

■ HOLDS DVA FOR ACTIVE L»0 

j HOLDS VCT FOR ACTIVE L«0 

> HOLDS VECTOR FOR ACTIVE Li0 

, ADDRESS OF MSG BUFFER 

ADDRESS OF MSG BUFFER 1 

CURRENT REC WORD POINTER 

CURRENT REC "IORD POINTER 1 

REC BYTE COUNT FOR 

PEC BYTE COUNT FOR 1 

TEMP HOLDS TIME OUT VALUE FOR A REC 
SANE BUT FOR LINE 1 

COUNTS HOW MANY SYN CHARACTERS REC 
jSHOULO WAIT FOR. 

; HOLD THE NUMBER OF LINES RUNNING, 0-2 
ABORT FLAG FOR LI0 
ABORT FLAG FOR LI0 

POINTS TO STATUS BYTE FOR CURRENT Lt0 
, POINTS TO STATUS BYTE FOR CURRENT L»0 
; WHERE TO PIRQ AFTER REC DONE 

HOLDS ERR WORDS TEMPORARILY 
HOLDS ERR WORDS TEMPORARILY 
HOLDS LOOP COUNT FOR LINE • 
HOLDS LOOP COUNT FOR LINE » 1 
HOLDS RETURN ADDK FOP LINE 10 
HOLDS RETURN ADDR FOR LINE 10 
HOLDS 1ST ADDR TO TMT FROM, LINE 
} SAME FOR LINE 1 

;HOLDS 2ND ADDR TO TMT FROM , LINE 
; SAME FOR LINE 1 

;HOLDS 1ST TMT COUNT FOR LINE 
; SAME FOR LINE 1 

HOLDS 2ND TMT COUNT FOR LINE 

SANE FOR LINE 1 

HOLDS TIME OUT TIME FOR LINE 
SAME FOP. LINE 1 
; HOLDS PTN ADDR FOR TMT, LINE 
SAME FOR LINE 1 
FLAG FOR WHEN A TMT IS DONE 
SAME FOR OTHER LINE 

HOLDS f OF SYN CHAR TO SEND, LINE 
; SAME FOR LINE 1 
j HOLDS RETURN ADDR FOR CTS 
; SAME FOR LINE 1 
;0 IF HALF DUPLEX, 1 IF FULL 

;COUNTS REC TIME OUT RETRYS 

|IS A ONE DURING BREAKS 

jHAS A 1 WHEN ITS TIME FOR END OF PASS 
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1 454 
1 455 
1456 
1457 
1 458 
1 459 
1460 
1 461 
1 462 
14b3 
1464 
1465 
1 466 
1 4*7 
1468 
1469 
147H 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1 4BW 
1481 
1 482 
1483 
1484 
1 485 
1 486 
148 7 
1 488 
1489 
1490 
1 491 
1 492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1SP4 
1505 
1506 
1507 
1509 
! 5k!9 



005034' 
005036' 
005040" 
095042' 
005044' 
00504b' 
00505^' 
005052' 
005P54' 
005056' 
005060' 
005062' 
005064' 



000000 
000000 
000000 
000004 
000000 
000000 
0»0000 
0*0000 
M0000 
000000 
000000 
000000 
000000 



005066' 
005066' 
005070' 
005071' 
005076' 
005102' 
005104' 
•05106' 
005U0' 



•05112* 
•05114' 
•051 16' 
005120' 
•05122' 
005124* 
•05126' 
005130' 
•05132' 



01 0046 
042700 
001404 
062701 
005300 
000773 
01 2600 
000207 



000003 

000000 

000000 

000000 
1*00000 
000000 
000000 
"00003 
0000014 



0051 34' <»t*0000 



0051 36" 
•05 Mt" 



0051 42' 
•07162' 



01 1202' 
01 1204' 
•1 1 206' 
01 1 210" 



0*0003 
900000 



001010 
001 01 



177777 
177777 
011504' 
177777 
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DTERR4 ! 


CPCR4 I 


RCT0R4I 


TXT0R4I 


FDBKR4 I 


CHKR4: 




rl has addr or vector 
p0 has line • in low bits, 
getadr: 





MOV 


R0,-(P6) 




BIC 


•1777S0,R0 


1ft 


BEQ 


2S 




ADD 


110, Rl 




DEC 


R0 




BR 


11 


2$: 


MOV 


(R6)+,R0 




RTS 


PC 


tihtab: 






















RETTABl 




























R4TAB t 




























MSGBF0: 


.BLKW 


520. 


MSGBF1 1 


.BLKW 


520. 


FILL: 


177777 






177777 




ATHOP: 


MOROP 
-1 





RETURNS WITH ADDR Op VECTOR IN Rl 
;SAVE R0 

;SAVE ONLY LINE I 
;DONE 

;BUMP TO NEXT LINE 
; ADDED ENOUGH TIMES? 
jGO BACK 
; RESTORE R0 

j RETURN WITH DVA IN PI 



;WHEN TO TIME OUT FOR RECLINE 
; WHEN TO TIME OUT FOR RECLINE 1 
j WHEN TO TIME OUT FOR TXT, LINE M 
j WHEN TO TIME OUT FO TXT, LINE 1 
WHERE TO RETURN FOR REC LINE 
WHERE TO RETURN FOR PEC LINE 1 
WHERE TO RETURN FOR TXT LINE It 
WHERE TO RETURN FOR TXT LINE 1 
HOLO R4 FOR RETURNS 



•RfcC BUFFER FOR LINE 
;PEC BUFFER FOR LINE 1 



;4 CHARACTERS OF FILLER BYTES 



e 1 1 2 I 7 * HP5015 04452 3 »>4!51f. SI 



, ASCII- <J^><1 2>'SINCK LAST SUMMARY PEP LlNt, In OCTA! *<15X12> 
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1510 


011220' 


020105 


040514 


052123 








1511 


•11226' 


051449 


046525 


040515 








1512 


011234* 


054522 


050040 


051105 








1513 


1111242* 


046040 


047111 


026105 








1514 


61 1250* 


644440 


020116 


041517 








1515 


011256' 


040524 


020114 


005015 








1516 


011264* 


044514 


042516 


021440 




a ASCII 


•LIKE 1 ERPS'<15><12> 


1517 


011272* 


829040 


051 ! 05 


351522 








1516 


011300" 


005015 












1519 


811302' 


030060 


026455 


030060 


SUMll 


.ASCII 


'00— «0'<15><12> 


1520 


011310* 


005015 












1521 


011312' 


030460 


026455 


030060 




•ASCII 


'01— 00*<15><12> 


1522 


011320* 


assets 












1523 
















1524 


011322* 


031060 


026455 


030060 




.ASCII 


'02— 80'<15>«12> 


1525 


01 1 330* 


00S015 










1526 
















1527 
















1528 


011332* 


031460 


026455 


030060 




.ASCII 


*0J— 00*<15><12> 


1529 


011340' 


005015 










1530 
















1531 
















1532 


011342' 


032060 


026455 


030060 




.ASCII 


'04— 00*<15><12> 


1533 


011350* 


005015 










1534 


011352' 


032460 


026455 


030060 




.ASCII 


'05— 0«*<15><12> 


1535 


011 360* 


005015 












1536 


011362' 


033060 


026455 


030360 




.ASCII 


•06— 00*<15><12> 


1537 


011370* 


005015 












1538 


011372' 


033460 


026455 


030060 




.ASCII 


'07— 00'<J5><12> 


1539 


011400* 


005015 












1548 


P11402' 


030061 


026455 


030060 




.ASCII 


'10— 00'<15><12> 


1541 


011410' 


005015 












1542 


011412' 


830461 


026455 


030060 




.ASCII 


'11— 00*<15><12> 


1543 


011420' 


005015 












1544 


011422* 


031061 


026455 


030060 




.ASCII 


'12— 00*<13><12> 


1545 


011430' 


005015 












1546 


011432* 


031461 


026455 


030060 




.ASCII 


•13— 00'<15><12> 


1547 


01 1440' 


005015 












1549 


011442* 


032061 


026455 


030060 




.ASCII 


'14— 00*<15><12> 


1549 


011450' 


005015 












1550 


011452* 


032461 


026455 


030060 




•ASCII 


'15— 00*<15><12> 


1551 


011460* 


005015 












1552 


011462* 


033061 


026455 


030060 




•ASCII 


M6— 00*<i5><12> 


1553 


011470* 


005015 












1554 


011472' 


033461 


026455 


030060 




•ASCII 


•J7— 00'<1S><12> 


1555 


011500' 


005015 












1556 
















1557 


01 1502' 


000 








.BYTE 





1558 




011S04' 








• EVEN 




1559 










f 






1564 










t 






1561 


911504* 


g4 45!4 


342516 


053440 


HDP.QP! 


sASCIZ 


•tlHE HAS DgOpPED' 


1562 


911512* 


051501 


042040 


047522 








1563 


011520' 


050120 


042105 


000 








1564 




000001 






.END 
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NPBA. PI 1 


CROSS 


REFERENCE 


TABLE — 


USER 


SYMBOLS 
















ABORT 


004722R 




881» 


906» 


931 


1107* 


1153* 


1184 


1233* 


1417* 








ACSR 


000052R 




4671 


992* 


1111* 


1236* 
















ADOP 


000006R 




4461 


639 


697 


















ADROP 


01 1206R 




782 


15061 




















AMSGBF 


004674R 




740 


809 


835 


1047 


14061 










































ASTAT 


#0005 4 R 




4691 


998* 


999* 


1006* 


1007* 


1008* 


1052* 


1069* 


1092* 


1118* 


1244* 


ANAS 


900060R 




4711 






















BDCNV * 


**»»#* 


G 


11 






















BEGIN 


030000R 




443* 


620 


621 


653 


654 


667 


719 


782 


863 


864 


974 








1011 


1038 


1039 


1063 


1095 


1121 


1219 


1223 


1247 


1276 


1280 








1369 


1393 





















PIT0 = 


000001 


BIT1 x 


000002 


BIT10 s 


002000 


BIT11 x 


004000 


BIT12 * 


010000 


8IT13 * 


020000 


BIT14 x 


040000 


BIT15 » 


1 00000 


BIT2 * 


00000 4 


BIT3 * 


000010 


BIT4 = 


000023 


BIT5 x 


000040 


BIT6 x 


000100 


BIT7 x 


000200 


BITS x 


000400 


8IT9 x 


101000 


BREAKS* 


104407 


BRKFLG 


005026R 


BP1 


0000 12R 


BR2 


00001 3R 


CDATASx 


104414 


CER 


003174R 


CHKR4 


005062R 


CKMSG z 




CRCP4 


00S042R 


CSRA 


000050R 


CTS 


004170R 


CTSINT 


004236R 


CTSRET 


94501 2R 


CURLIN 


004726R 


DATAER 


002634R 


DATCKS* 


104417 


DATER$= 


104405 


OERR 


001306R 


DEVSETx 


****** 


DONE 


001002R 


DROP 


001352R 


DR0PR4 


00503 2R 


DTERR4 


005036R 


DVASAV 


004664R 


DVID1 


00001 1R 


ECOUiiT 


000252R 



98b 
1337 



1001 
1336 



4801 
4801 
460* 
480* 
4R0* 
480* 
480* 
480* 
480* 
4801 
480* 
480* 
480* 
480* 
480* 
480* 
480* 
686* 
4481 
449* 
480* 
1069 
682* 
480* 

674* 
465* 

754 
1265 
1263* 
692* 
997 
480* 
480* 
757 
481* 
690 
776 
670* 
672* 
699* 
1033* 
4501 
5491 



653 


654 


863 


864 


1038 


1039 


723 


1332 


1336* 


1339* 


1451* 




905 


1152 


1267 








1071 


1087* 










683* 


1037* 


1040 


1045* 


1465* 




1035 


1062 










675* 


1093* 


1097 


1102* 


1457* 




991* 


1113* 


1234* 


1235* 


1236 


1237* 


800 


834 


1263* 








1274* 












1270 


1288 


1445* 








773 


822 


882 


993 


1055 


1081 


1006* 













7691 

622 

711* 

7801 

671* 

673* 

758* 

1 111 
618 

1083* 



825 


687 




















781* 


783 


788* 


14531 
















1009* 


1013 


1018* 


1455* 
















763 


769* 


804* 


821* 


875* 


886* 


91S)» 


917* 


930 


979* 


991 


1112* 


1113 


1155 


1170 


1186 


1234 


1268 


1271* 


1285 


1287* 


1402* 
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ENDPSS* 


104402 




4801 


1 393 










ENDS * 


1 4440 ) 




4901 






719 






EPAS5 


00 4 4 7 6 P 




725 


13 30 


3581 






ERRCNT 


000030R 




457* 












ERRLVL 


000172R 




489i 


775 


824 


884 


1 109 




EPRNJ i 


104410 




4601 








ERRORS- 


1 04404 




4801 


1001 


loll 


1095 


1121 


1 247 


ERRTAB 


000232R 




5301 








ERRHD 


004736R 




935* 


951 


955* 


956* 


992 


996 


EXITS * 


1 0440>9 




4801 


728 


857 


1003 


1272 


1 334 


FDBKP4 


005056R 




680* 


681* 




865 


870* 


1 4631 


FDFLAG 


#0501 6R 




7 30* 


7 34* 




908 


946 


1 156 


FDRCDN 


001 766R 




840 




871 


885 


FDTO 


#021 30R 




850 


89?' 








FERR 


001 322R 




746 


772* 










FERP 1 


001 324R 




771 


7 7 3 • 










FILL 


#1 1 202R 




753 




846 


1504* 






FTBUF 


003700R 




1188 


1 197* 








GEPP 


001 562R 




803 


8 2 1 * 










GETADR 


M5066R 




698 


701 


1 4721 








GETNXT 


000672R 




6891 


696 


766 


1 320 






GETPAS = 


1 0441 3 




480t 










GWBUFS* 


1 0441 2 




4801 












HFRR 


001 570R 




814 


822* 










IHIT 


00002 2 R 




4541 












JERR 


00206 2 R 




839 


848 


8801 








LI N ACT 


004720R 




688* 


703* 


711 


765* 


1313 


1416* 


LNDONE 


001 262R 




762i 


789 










LOOP 


004742R 




704* 


759* 


760 


w \ 


• 16 


872* 


LPCHT 


000166R 




4871 


760 


816 


873 




MAP22S* 


1 044 15 




480i 










MASK 


004660R 




623* 


627 


629 




635* 




MD * 


»»*»» » 


GX 


707 












MDATAB 


00027 2R 




573* 












MDMTAB 


00031 2R 




6001 












MDROP 


01 1504R 




1 50b 


15611 










MODNAH 


000000R 




4441 












HOOSP 


0001 6 4R 




455 


478* 










MSG a 




G 


4801 


1 048 










MSG8F0 


005 1 42R 




1 406 


1 4991 










MSGBF1 


007162R 




1 407 


1S00I 










MSGCNT 


004656R 




650* 


1 360* 


1361 


1 363* 






HSGHEDi 


****** 


G 


480* 


749 


795 


841 






MSGNS a 


1 0441 1 




480* 


782 


1 389 








HSGSIZ* 




G 


4801 


741 


750 


796 


810 


• 36 


MSGS* a 


1 0441 6 




4801 












MSG* * 


104406 




4801 












MSUM 


004652R 




1 389 


1 39bi 










NXTLIN 


004662R 




687* 


689 


691 


694* 


1401 • 




OACNV x 


»•••* » 


G 


1 1 












ONEREC 


0011S6R 




491 


747* 


778 








ONETMT 


00IS00R 




492 


8051 










OPEN a 


A0000J 




445 
471 


451 
4801 


458 


459 


460 


461 


PASCNT 


000026R 




4564 












PA5TIM 


•05030R 




685* 


721* 


1328 


1452* 







1135* 142S* 
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PHYTAB 


(0021 2R 


508l 


624 


631 


648 


687 


PIRQf a 


900004 


4801 


974 


986 


1219 


1223 


POPSP a 


005726 


480* 










P0PSP2= 


022626 


480* 










PP 


*01ebHR 


708 


730* 








PPFD 


00161 2R 


733 


831* 








PPFD1 


001612R 


835* 


874 








PPHDM 


00141 4R 


736 


794* 


817 






PPHDM2 


001542K 


808 


815* 


826 






PPHDS 


031112R 


739* 


761 








PPHDS2 


901246R 


748 


759* 


779 






PRTY a 


000004 


480* 










PPTY0 » 


00000 « 


4R0* 










PPTY1 a 


00004(4 


480* 










PPTY2 a 


•001 til 


4801 










PRTY 3 a 


0001 40 


480* 










PPTY4 = 


000200 


480* 










PPTY5 * 


000240 


448 


449 


4801 






PRTY6 a 


000300 


480* 










PPTY7 ■ 


000 34.* 


480* 










PS a 


1 77776 


480* 










PSW a 


177776 


480* 










PUSH a 


005746 


480* 










PUSH2 * 


024646 


480* 










PWRCNTa 




G 480* 


665 








QUES a 


1 34401 


480* 










RCT0P4 


005046R 


676* 


677* 


1119* 


1123 


1128. 


RCVTO 


005022R 


705* 


1014* 


1108* 


1109 


1129* 


RDTO 


003262R 


892 


914 


1107* 






REC 


002142R 


745 


813 


838 


901* 




RECADR 


004700R 


740* 


809* 


835* 


958* 


959* 


PECCNT 


004704R 


741* 


742* 


810* 


811* 


836* 


RECD 


004732R 


967 


1421* 








RECDN 


002712R 


974 


1030* 


1421 


1*22 




RECERR 


0032 10R 


1053 


1090* 








RECINT 


002252R 


903 


922* 








RECRIN 


004746R 


891 • 


901* 


911 


1072* 


1074 


RECTIM 


004710R 


743* 


744* 


812* 


915 


1412* 


REPORT 


000164R 


484* 


949 


1050 


1057 


1077 


REPR 


002510R 


952 


957 


977* 






RESTRT 


000540R 


472 


652 


665* 






RETTAB 


00S122R 


1073* 


1213" 


1309* 


1323 


1326 


RPIRO 


002502R 


967* 


972* 








RRET 


0031 36R 


1026 


1073* 


1079 


1084 


1103 


RSTRT 


•0006 2 R 


472* 










RTSSET 


004226R 


1269 


127H 


1286 






R4TAB 


0051 32R 


1308* 


1 491 1 








SBADP. 


00005 2 R 


466* 










SPAPE1 


000202R 


493* 










SPARE.2 


000204R 


494* 










SPARE3 


000206R 


495* 










SPARE4 


000210R 


4961 










SPOINT 


00002 4R 


455* 


669 








SPSIZ ■ 


•00040 


1 1 


473 








SP1 


00001 6R 


451 • 


636 








START 


000332R 


454 


6181 
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714 
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1449* 



1408* 
937* 



1130 
1087 



1427* 
1358 
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STAT 


000020R 




4531 












SUM 


01 1212R 




1396 


15091 










SUM1 


• U302R 




1365 


15191 










SVR0 


000032R 




4531 












SVR1 


0000 3 4R 




459* 












SVR2 


000036R 




4601 












SVR3 


000040R 




46 1* 












SVR4 


00004 2R 




462t 












5VR5 


900044R 




463! 












SVR6 


000046R 




4641 












SYNC 


0001 7 4R 




4901 


644* 


646 


941 


1202 


1238 


SYNCNT 


•04714R 




907* 


937 


945* 


14141 




TI DONE 


003752R 




! 190 


1 21 1 ■ 










TIEXIT 


003672R 




1185 


1 194* 


1203 


1 208 






TIHCHK 


P04362R 




713 


1 314 


13231 


1340 






TIME * 


•••••» 


G 


4P0I 


1 307 


1343 








TIMELN 


M0170R 




4881 


743 


744 


75S 


801 


012 


TIMKEP 


004306R 




854 


918 


1173 


1305* 






TIMTAB 


005112R 




1306* 


1 307* 


14831 








TMT 


003430R 




756 


802 


847 


1146* 






TMTDON 


•05«>02R 




856* 


860 


890* 


1147* 


1441 • 




TMTINT 


003604R 




1150 


1 l76t 










TMTRFT 


004776R 




1146» 


1 162 


1214* 


1226 


1220 


1 25S 


TMTTIM 


00477 




755* 


801* 


1 168 


1437* 






TPX = 


000000 




4801 












TRAPX » 


00002H 




480) 












TSYNCT 


005006R 




948* 


1 154* 


1 159* 


1197 


1201* 


14431 


TXADR1 


004752R 




749* 


795* 


841* 


1 204 


1206* 


14291 


TXADR2 


004756R 




753* 


799* 


846* 


1191 


1192* 


14311 


TXCNTl 


004762R 




750* 


751* 


796* 


797* 


• 43* 


•44* 


TXCNT2 


•04766R 




752* 


798* 


845* 


1189 


1193* 


1435* 


TX70 


•0403&K 




i i 67 


i 233* 










TXTOR4 


005052R 




678* 


679* 


1245* 


1249 


1254* 


1461* 


VCTSAV 


004670R 




702* 


902 


1148 


1264 


1404* 




VECTOR 


00001 JR 




447» 












WAIT a 


****** 


G 


480« 


651 










WASADR 


000k>5lR 




4681 












XFLAG 


000«»0SR 




4451 












X4 


003146R 




1066 


10771 










X5 


003156R 




1051 


1078 


10811 


1088 






m X 


011525R 




14991 


1500* 


1558* 









SEQ 0127 



1439* 



1207* 1433* 



. ABS. 000040 000 
01152S 001 



% ERRORS DETECTED: 1 

% DEFAULT GLOPALS GENERATED) 1 

•NPBA, NPBA /SOL/CPE :SYM=DDXCOM, NPBA 
PUN-TIME: 6 12 1 SECONDS 
FUN-TIME RATIO: 55/20»2.6 
COPE USED; RK (15 PAGES) 
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MAC Yl \ 27(732) 20-MAY-76 12:26 PAGE 2 



SEQ 0128 



1 .REM % 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 IDENTIFICATION 
14 

15 PRODUCT CODE : MAINDEC-l 1-DXNLA-A-D 

16 

17 PRODUCT NAME: DL-11 DECNET DEC/X11 EXERCISER MODULE 

18 

19 DATEl 21-JUN-76 

20 

21 MAINTAINEP: DEC/X11 DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN. 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COplED IN ACCORDANCE WITH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE OR RELIABILITY OF ITS SOFTWARE ON EUUI PMENT THAT TS NOT 

34 SUPPLIED BY DIGITAL. 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIpMF.NT CORPORATION, MAYNARD, MASS , 

38 
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76 
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1. ABSTRACT 

THIS TYPE OF DEC/Xll MODULE, REFERRED TO AS DECNET DEC/X11 MODULE, 
WILL DETECT SYSTEM INTERACTION ERRORS WHEN RUN IN CONJUNCTION WITH 
OTHER DEC/Xll MODULES EXERCISING OTHER DEVICES ON THE SYSTEM, 
ERRORS ARE REPORTED ON THE SYSTEM CONSOLE AS THEY OCCUR OR AS A 
SUMMARY REPORT, AT THE OPERATORS OPTION, IN ADDITION, THESE 
MODULES MAY BE USED TO VERIFY THE CONDITION OF THE ASSOCIATED 
MODEMS AND COMMUNICATION LINKS, IT WILL ONLY TEST COMMUNICATIONS 
PATHS CAPABLE OF RUNNING DDCMp, THIS MEANs THE DEVICES MUST USE 
NO PARlTYf 8 LEVEL CODE/ AND TERMINALS CANNOT BE TESTED, 



NOTE 

THIS DOCUMENT ASSUMES FAMILIARITY WITH 
THE PHILOSOPHY AND OPERATION OF DEC/Xll, 
THE DETAILS OF LINKING, LOADING, AND 
RUNNING MODULES UNDER DEC/Xll CAN BE 
FOUND IN THE DEC/Xll USERS DOCUMENTATION 
AND REFERENCE GUIDE, MAINDEC-1 1-DXOBA, 
THE READER SHOULD ALSO HAVE READ THE 
DECNET DEC/Xll USER'S GUIDE, 

MAINDEC-11-DXQBC# WITHOUT THROUGHLY 
UNDERSTANDING THAT DOCUMENT, THERE IS 
LITTLE HOPE OF SUCCESSFUL TESTING, 



2, HARDWARE REQUIREMENTS 

THESE MODULES REQUIRE A COMPLETE PATH FROM A COMMUNICATIONS DEVICE 
TO A COMMUNICATIONS DEVICE, THIS MAY BE ACCOMPLISHED THROUGH A 
VARIETY OF METHODS S 



A, 1 PROCESSOR, 1 COMM. DEVICE, AND A LOOP BACK DEVICE WITH 
MODEM SIMULATION CAPABILITIES, (MUST RUN FULL DUPLEX) 

B, 1 PROCESSOR, 2 COMM. DEVICES* 2 MODEMS 

C, 2 PROCESSORS, ? COMM. DEVICES, 2 MODEMS 

UP TO SIXTEEN LINES CAN BE HANDLED BY ONE MODULE BUI ONLY 2 
LINES ARE KEPT RUNNING SIMULTANEOUSLY, 



3, SOFTWARE REQUIREMENTS 

A, THE DEC/Xll MONITOR MUST BE QABK OR A LATER REVISION, 

B. THE N1A? MODULE MUST BE CONFIGURED DIRECTLY AFTER THE 
MONITOF* 
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C. ALL NETWORK MODULES MUST BE CONFIGURED NEXT. 

D. THE N2A? MODULE MUST BE CONFIGURED NEXT.* 

E. ONE OF THE 3 CLOCK MODULES MUST BE CONFIGURED NEXT, EITHER 
KWA?, KWB? , OR KWX? 

F. ANY OTHER DESIRED DEC/Xli MODULES CAN THEN BE CONFIGURED IN 
ANY ORDER. 



4, PRELIMINARY TESTING 

THE APPROPRIATE STAND ALONE DIAGNOSTICS MUST BE RUN TO VERIFY THE 
CPU, AND THE COMMUNICATIONS DEVICE, THEN A DEC/X11 EXERCISER 
USING THE CONVENTIONAL (MAINTENANCE MODE) DEC/X11 MODULES FOR THE 
COMMUNICATIONS DEVICES MUST BE RUN. IF BOTH THESE STEPS PASS 
SUCCESSFULLY, DECNET DEC/X11 MAY BE ATTEMPTED, 



5. PROGRAMMING CONSIDERATIONS 

A. OTHER THAN THE REQUIREMENTS MENTIONED IN 3 REGARDING THE 
ORDER IN WHICH MODULES MUST BE REQUIRED, THESE DECNET DEC/XU 
MODULES WILL BE COMPLETELY COMPATIBLE WITH THE DEC/X11 
MONITORS AND ALL OTHER MODULES. THE ONLY OTHER EXECPTION Is 
THAT FOR A GIVEN COMMUNICATIONS DEVICE, THERE WILL NOW BE 2 
DIFFERENT DEC/X11 MODULES CAPABLE OF BEING RUN, THE OLDER 
MAINTANCE MODE TYPE REQUIRING NO CONNECTIONS TO THE 
COMMUNICATION DEVICE, AND THE NEW DECNET TYpE REQUIRING A 
COMPLETED COMMUNICATIONS PATH. IT WILL BE POSSIBLE (AND 
SOMETIMES DESIREABLE) TO CONFIGURE 2 DIFFERENT DEC/X11 
MODULES IN ONE RUN TIME EXERCISER WHICH TEST THE SAME 
PHYSICAL DEVICE. IF THIS IS DONE, ONLY ONE OF THE 2 MODULES 
MAY BE SELECTED FOR THE SAME RUN. 



B. USING THESE DECNET DEC/X11 MODULES, IT IS POSSIBLE TO HAVE 
MANY NODES CONNECTED IN A NETWORK, ALL RUNNING DEC /XI 1 
TOGETHER. ALL THESE EXERCISERS WOULD HAVE BEEN STARTED AT 
DIFFERENT TIMES. DUE TO DIFFERENT HApDWARF ON EACH SYSTEM , 
RUN TIKFS AND END OF PASS TIMES MIGHT VARY CONSIDERABLY. 
THEREFORE IT IS NECCESSARY THAT THESE DECNET DEC/X11 MODULES 
BE EXTREMELY PATIENT AND HAVE A HIGH RETRY CAPABILITY IN ALL 
OPERATIONS. THIS HOWEVER, MEANS IT SOMLT I MEs MAY TAKE A LONG 
TIME (ON THE ORDER OF 10 MINUTES) BEFORE AN OPERATOR FINDS 
OUT A LINE IS DEFINITELY NOT RUNNING. 

C. DUE TO THE EXCESSIVE PROGRAMMING COMPLICATIONS AND LARGE 



* THESE ARE DFSCRIBED IN THE DECNET DEC/X11 USER'S GUIDE. 
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BUFFERS REQUIRED TO RUN MANY LINES FROM ONE MODULE ALL AT THE 
SAME TIME, IT WAS DECIDED TO ONLY RUN 2 AT ANY ONE TIME. IF 
THE MODULE IS SET TO RUN 16 LINES, IT WILL PUN 1 PAIR FOR THE 
NUMBER OF TRANSFERS INDICATED BY LOCATION LPCNT , THEN IT WILL 
RUN A 2ND PAIR, THEN 3RD, ETC UP TO THE 8 TH PAIR, IT WILL 
THFN REPORT AN END OF PASS AND GO BACK TO THE FIRST PAIR, 
THEN 2ND, ETC. THIS FORCES SOME CONSIDERATIONS TO BE MADE 
WHEN CONNECTING LINES TOGETHER SO THAT A LINE IN THE ACTIVE 
MODE IS NOT WAITING ON A LINE IN THE DORMANT MODE , PLEASE 
READ THE DECNET DEC/Xll USER'S GUIDE, ESPECIALLY THE SECTION 
ON 2 LINES AT A TIME CONSIDERATIONS. 

D, THESE MODULES WILL, AS A GENERAL RULE, USE THE MINIMUM AMOUNT 
OF FEATURES OF A COMMUNICATION DEVICE REQUIRED TO SEND AND 
RECEIVE MESSAGES. THIS MEANS THAT CRC CALCULATING HARDWARE, 
CHARACTER RECOGNITION HARDWARE, ETC, WILL NOT BE USED, THESE 
FEATURES ARE FULLY TESTED BY STAND ALONE DIAGNOSTICS. 



6, OPERATING PROCEDURES 

A, THE MODULE Is CONFIGURED, LOADED, AND RUN AS SPECIFIED IN THE 
DEC/Xll REFERENCE GUIDE, 

B, CONSOLE SWITCHES ARE STANDARD FOR DEC/Xll 

C, THE N 1 A? MODULE WILL SOLICIT FROM THE OPERATOR WHICH TYPE OF 
MESSAGE HE WANTS TO USE FOR DECNET ACTIVITY, THE OPTIONS 
INCLUDE: 

ALL ONES 
ALL ZEROS 

ALTERNATING ONES AND ZEROS 

A DIGIT (4 BIT) REPEATING COUNT PATTERN 

A PRECANNED ASCII MESSAGE 

USER SPECIFIED BY TYPING IN 

D, THE N 2 A? MODULE WILL MAKE ANY AUTOMATIC PHONE CONNECTIONS 
USING ANY DN-11'S PRESENT AND WILL REQUEST THE OPERATOR TO 
DIAL ALL MANUAL CONNECTIONS. ALL OPERATORS AT EACH NODE 
UNDER TEST MUST REACH THIS POINT BEFORE ANY ONE NODE 
CONTINUES INTO THE EXERCISING PHASE. 

E, THE N2A? MODULE WILL REQUEST A CARRIAGE RETURN WHEN THE 
OPERATOR WANTS TO BEGIN EXERCISING HIS NODE. 

F, THERE ARE MANY OPTIONS WHICH MAY BE ALTERED BEFORE RUN TIME, 
THEY INCLUDE: 



(1) LOCATION 164 IS A SWITCH WHICH INDICATES WHETHER OR NOT 

ALL ERRORS SHOULD BE REPORTED As THEY HAPPEN, IF 

LOCATION lb4 IS NON-ZERO (EQUAL TO N), THEN ERRORS ARE 

TOTALLED (ON A LINE BY LINE BASIS); EVERY N PASSES THIS 
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207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 



(3) 



(4) 



(5) 
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TOTAL NUMBER OF ERRORS FOR THE PREVIOUS N PASSES WILL BE 
REPORTED. THE VALUE OF N IS THE VALUE OF LOCATION 164, 
THE MAXIMUM NUMBER OF ERRORS THAT CAN BF TALLEYED IS 256 
PER LINE. THEREFORE IF A LINE IS NOT KNOWN TO BE OF 
VEP.Y GOOD QUALITY, THE VALUE OF LOCATION 164 TIMES THE 
VALUE OF LOCATION 166 SHOULD BE LESS THAN 128. 
(LOCATION 166 IS DEFINED NEXT.) THIS MEANS THE NUMBER OF 
MESSAGES PER PASS TIMES THE NUMBER OF PASSES PER SUMMARY 
REPORT SHOULD BE LESS THAN 128. IN THIS WAY, IF EVERY 
MESSAGE ATTEMPTED HAS AN ERROR ON BOTH TRANSMIT AND 
RECEIVE, THE ERROR TALLY WILL NOT OVERFLOW, IF THE LINE 
IS OF KNOWN GOOD QUALITY, f HIS RESTRICTION MAY BE 
RELAXED. THE DEFAULT VALUE IS TO NOT REPORT TOTAL 
ERRORS, (LOC 164=0) OF COURSE DEC/XH KEEPS TOTALS FOR 
THE ENTIRE PUN, REGARDLESS. 

LOCATION 166 INDICATES HOW MANY ITERATIONS SHOULD BE 
DONE BEFORE AN END OF PASS IS CALLED , AN ITERATION IS 
NORMALLY ONE TRANSMIT AND ONE RECEIVE, IN EITHER ORDER. 
THE DEFAULT VALUE IS 8. 

LOCATION 170 IS A TIME SCALING FACTOR, THERE ARE MANY 
TIME OUT LOOPS IN THE MODULES, SOME SHOULD LOGICALLY BE 
LONGER THAN OTHERS, THE VALUE IN LOCATION 170 IS THE 
NUMBER OF SECONDS TO WAIT FOR THE SMALLEST TIME OUTS, 
SOME TIME OUTS WILL BE A MULTIPLE OF THIS FACTOR, 
DEFAULT IS 30 SECONDS. 

LOCATION 172 IS AN ERROR TOLERATION LEVEL, ON A SINGLE 
MESSAGE BASIS, SO IF IN AN ATTEMPT TO DO ONE ITERATION 
(USUALLY A TRANSMIT THEN REClEVE OR VICE-VERSA) THE 
NUMBER OF ERRORS REACHES THE VALUE IN LOCATION 172, THAT 
LINE IS DROPPED FROM TESTING. IF BEFORE THIS LEVEL IS 
REACHED, AN ITERATION IS CORRECTLY COMPLETED, THEN THE 
ERROR COUNT WHICH IS COMPARED TO LOCATION 172 IS RESET 
TO ZERO. THE DEFAULT IS 10. 

LOCATION 174 CONTAINS 2 IDENTICAL B \ TES FOR USE AS SYNC 
CHARACTERS. THE DEFAULT IS 113226 WHICH IS 2 BYTES OF 
226. IF THIS IS CHANGED, BOTH BYTES MUST BE IDENTICAL 
TO EACH OTHER, THIS LOCATION IS A DON'T CARE FOR 
ASYNCHRONOUS DEVICES, BECAUSE THEY "SYNC" ON THE FIRST 
BYTE OF THE ACTUAL MESSAGE, NOT ON PRECEDING CHARACTERS 
AS SYNCHRONOUS DEVICES DO. 

LOCATION 176 IS AN ADDRESS. IF THE OPERATOR WANTS TO 
PUN THE DEVICE IN RECEIVE-ONLY MODE, HE SELECTS THE LINE 
FOR HALF DUPLEX, POINT-TO-POINT, SLAVE, (BIT 7=1, 
BITS 4,5, AND 6 s 0'S IN THE PHYSICAL LINE TABLE. SEE 
ITEM 6-F-9 BELOW). THEN PATCH THE LOCATION POINTED TO 
BY LOCATION 176 FROM A 4(41 TO A 240. THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
SLAVE BY THIS MODULE TO RUN IN RECEIVE ONLY MODE . THIS 
LOCATION MAY BE PATCHED BACK TO A 401 TO RESUME NORMAL 
REC-TMT TESTING. 
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264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
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284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
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307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
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C7) LOCATION 200 IS AN ADDRESS. IF THE OPERATOR WANTS TO 
RUN THE DEVICE IN TRANSMIT-ONLY MODE* HE SELECTS THE 
LINE FOR HALF DUPLEX, POINT-TO-POINT, MASTER (BITS 7 AND 
5 * l'S# BITS 4 AND 6 = 0'S IN THE PHYSICAL-LINE TABLE, 
SEE ITEM 6-F-9 BELOW.) THEN PATCH THE LOCATION POINTED 
TO BY LOCATION 200 FROM A 401 TO A 240. THIS WILL CAUSE 
ALL LINES BEING TESTED IN HALF DUPLEX, POINT-TO-POINT, 
MASTER BY THIS MODULE TO RUN IN TRANSMIT ONLY MODE. THE 
LOCATION MAY BE PATCHED BACK TO 401 TO RESUME NORMAL 
TMT-REC TESTING, 



G. LOCATIONS DVA, VCT, BR 1 AND BR2 MUST BE SET TO PROPERLY MATCH 
THE FIRST DEVICE TO BE TESTED BY THIS MODULE. 



7, ERROR REPORTING 



A, ERRORS ARE EITHER TOTALLED AND PRINTED AS SUMMARIES ON A LINE 
BY LINE BASIS, OR THEY ARE PRINTED AS THEY OCCUR. SEE 
SECTION 6F1, THEY ARE 2 CLASSES OF ERRORS DATA ERRORS AND 
OTHER ERRORS. 



B, DATA ERRORS ARE ACTUALLY REPORTED BY THE N 1 A? MODULE BECAUSE 
THIS IS WHERE THE SHARED DATA COMPARE ERROR ROUTINE IS 
LOCATED, SO ALL DFCNET DEC/X11 MODULE DATA COMPARE ERRORS 
LOOK LIKE THE STANDARD DEC/X11 DATA COMPARE ERROR MESSAGE 
EXCEPT: 

(1) THE MODULE NAME TYPED IS FFXX, WHERE FF IS FILLED IN TO 
BE THE NAME OF THE DEC N ET DEC/X11 MODULE WHICH CALLED 
THE N 1 A? MODULE TO DO THE COMPARE , IN OTHER WORDS FF 
REPRESENTS THE MODULE THAT "HAD" THE ERROR, 

(2) THE ERROR NUMBER IS A COUNT OF THE DATA COMPARE ERRORS 
IN THE CURRENT MESSAGE BEING CHECKED, IT IS THEREFORE 
RESET TO ZERO EVERY TIME A NEW MESSAGE IS TO BE CHECKED. 

(3) ACSP CONTAINS THE ADDRESS OF THE DECNET DEC/X11 MODULE 
WHICH CALLED THIS ROUTINE TO HAVE ITS MESSAGE CHECKED. 

(4) SBADR CONTAINS THE LINE # OF THE DEVICE WHICH HAD THE 
DATA ERROR. 

(5) WASADR CONTAINS THE COUNT (IN OCTAL) OF WHICH CHARACTER 
IN THE MESSAGE THIS BAD CHARACTER WAS. 

(6) THE "SHOULD BE AND "WAS" ITEMS ARE NORMAL. 



C. OTHER ERRORS APE REPORTED USING THE NORMAL ERROR CALL IN 
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DEC/X11 CSRA AND ACSR ARE STANDARD. STATC CONTAINS A CODED 



ERROR NUMBER, WITH THE CODE BEING CONSISTENT IN ALL DECNET 
DEC/XU MODULES. THE LOW ORDER 2 DIGITS OF STATC CONTAIN 
WHICH LINE HAD THE ERROR THE OTHER DIGITS CONTAIN THIS CODE: 



0010XX REC TIME OUT 

0020XX TMT CLOCK LOSS 

0030XX HEADER CPC ERROR 

0040XX MSG CRC ERROR 

0050XX TMT TIME OUT 

0060XX TMT NON-EXISTENT MEMORY 

0070XX TMT LATENCY 

0100XX REC DATA PARITY ERROR 

0H0XX REC NON-EXISTENT MEMORY 

0120XX REC CLOCK LOSS 

0200XX REC FRAMING ERROR 

0400XX REC OVERRUN OR LATENCY ERROR 



THIS METHOD SHOULD ELIMINATE THE CONSTANT NEED FOR HAVING A 
LISTING ON HAND TO DECIDE WHAT THE ERRORS WHERE. THE FIRST 
TIME THE RUN TIME EXERCISER IS RUN AFTER LOADING, THE N1A? 
MODULE WILL TYPE THIS ERROR CODE LIST OUT TO THE SYSTEM 
CONSOLE FOR THE OPERATORS SUBSEQUENT USE. 



D. ALL ERRORS HAVE A RETRY LIMIT (SEE SECTION 6F4) WHICH CAN BE 
MODIFIED. 



E. ON POWER-FAIL, POWER-UP CONDITIONS, DECNET DEC/XH MODULES 
WILL DROP THEMSELVES. THIS IS DONE BECAUSE THE PHONE 
CONNECTIONS WILL HAVE BEEN LOST AND OPERATOR INTERVENTION 
WILL BE REQUIRED. 



8. TEST SEQUENCE 

LINES ARE TESTED BY PAIRS IN SEQUENTIAL ORDER. THIS ORDER MAY BE 
MODIFIED BY MODIFYING THE PHYSICAL LINE TABLE, ( SEE DECNET 
DEC/XH USEP'R GUIDE). THERE ARE SEVERAL TESTING OPTIONS WITH 
SLIGHTLY DIFFERENT FUNCTIONS MAKING UP AN ITERATION : 



A, POINT-TO-POINT SLAVE. IN THIS CASE THE LINE WAITS TO RECEIVE 
A MESSAGE, WHEN IT DOES, I T CHECKS IT, AND THEN TRANSMITS A 
MESSAGE BACK. IT WILL REPORT ERRORS ON EXCESSIVE WAITS, 



B POINT-TO-POINT MASTER. IN THIS CASE THE LINE SENDS A MESSAGE 

AND WAITS TO RECEIVE ONE IN RETURN. IT THEN CHECKS THE 
RECEIVED MESSAGE. IF IT TIMES-OUT, IT TRANSMITS AGAIN, IT 
WILL CONTINUE TO TIME OUT AND RE-TRANSMIT UNTIL EITHER A 
MESSAGE IS RECEIVED, OR IT TIMES OUT COUNT EQUALS LOCATION 



NLAA.Pt 1 



375 172, THE ERROR TOLERATION LEVEL. (SEE SECTION 6F4). IT WILL 

376 THEN REPORT AN ERROR AND BEGIN AGAIN. AFTER THE NUMBER OF 
377 

378 

379 CONSECUTIVE TIME-OUT ERRORS REPORTED EQUALS LOCATION 172, THE 

380 LINE WILL BE DROPPED. 
381 

382 

383 C. POINT-TO-POINT SLAVE RECEIVE ONLY,, IN THIS MODE THE LINE 

384 WAITS ONLY TO RECEIVE, CHECKS THE MESSAGE, AND WAITS TO 

385 RECEIVE AGAIN. 
386 

387 

388 D, POINT-TO-POINT MASTER-TRANSMIT ONLY , IN THIs MODE THE LINE 

389 JUST TRANSMITS AND THEN TRANSMITS AGAIN , ETC . 
390 

391 

392 E, MULTl-DROp MASTER. IN THIS MODE, THE LINE WILL SEND A DDCMp 

393 MESSAGE OUT FOR THE ADDRESS CONTAINED IN THE MULTI-DROP MENU 

394 TABLE, WAIT TO RECEIVE A MESSAGE BACK, AND THEN CHECK THE 

395 DATA. 

396 » NOT YET IMPLEMENTED 
397 

398 

399 F, MULTl-DROp SLAVE. IN THIS MODE, THE LINE WILL WAIT FOR A 

400 MESSAGE WITH THE MATCHING ADDRESS, THEN IT WILL TRANSMIT A 

401 MESSAGE. 

402 » NOT YET IMPLEMENTED 
403 

404 

405 G. THESE BASIC ITERATIONS ARE REPEATED Up TO THE NUMBER OF TIMES 

406 IN LOCATION 166, (SEE SECTION 6F2) FOR EACH LINE SELECTED 

407 FOR TEST, AND THE END-OF-PASS IS DECLARED. 
408 

409 
410 

411 9. PASS TIMES 

412 

41 3 

414 PASS TIMES ARE EXTREMELY CONFIGURATION DEPENDENT. DIFFERENT BAUD 

415 RATES, MESSAGE SIZES, AND TESTING MODES ALL GREATLY AFFECT 

416 THE PASS TIME, BELOW ARE SOME BALL PARK TIMES, BUT ANY ONE 

417 SYSTEM COULD VARY TREMENDOUSLY FROM THESE: 

418 -RUNNING ALONE, 1 LINE ON AN U/05 AT 960*} BAUD, HALF DUPLEX, 

419 POINT-TO-POINT, WITH A 512 CHARACTER MESSAGE, TAKES 15 

420 SECONDS. 
421 

422 

423 NOTE 1 AT VARIOUS MONITOR CALLS THROUGHOUT THIS MODULE, IT IS LIKELY THAT 

424 WHEN 2 LINES ARE RUNNING, A MONITOR CALL CAN BE MADE AND BEFORE CONTOrL IS 

425 RETURNED TO THE MODULE, THE OTHER LINE MAY CAUSE THE EXACT SAME CALL TO BE 

426 MADE, IN FACT, WHEN PUNNING 2 LINES FULL DUPLEX, IT MAY BE POSSIBLE TO HAVE 

427 4 CALLS TO THE MONITOR FROM ONE SPOT IN THE MODULE, BEFORE THE FIRST CALL Is 

428 RETURNED FROM. THIS TS WHY AT SUCH CALLS, THE CODE SETS COUNTERS 

429 BEFORE DOING CALLS, SO THAT WHEN It IS RETURNED TO, IT CAN KEEP WHICH 

430 LINE DID WHAT STRAIGHT. 
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NOTE 2 WHEN PUNNING 2 LINES LOOPED TOGETHER FROM THE SAME MODULE, 
THE LOW ORDER ONE (PER DVC, LOC . 14) SHOULD BE SLAVE AND THE HIGHER 
ORDER ONE SHOULD BE MASTER. 



NOTE 3 YOU CAN RUN THE DL'S WITHOUT MODEMS IF A NULL MODEM IS USED 
AND LOCATION TAGGED "NULL:" IN THE CTS: (CLEAR TO SEND) ROUTINE IS 
PATCHED FROM 104400 TO A 772. THIS WILL GENERALLY REQUIRE ALL DL'S 
BEING RUN BY THIS MODEM TO NOT USE MODEMS. IF YOU HAVE SOME WITH 
AND SOME WITHOUT, USE 2 NLA? MODULES. 
% 
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444 






•PARITY 


MUST BE 


445 






;STOP CODE LENG 


446 






) ChARACTER SHE 


447 


00000P* 






IOMOD < 


448 


990000" 






MODULE 


449 








TITLE 


450 






* 


nnyrnH 


451 










452 










453 


000000' 




BEGIN s 




454 


000000* 


046116 040501 


040 MODNAMt 


ASCII 


455 


000005* 


003 


XFLAGj 


BYTE 


4SS 


998006* 


"33331 


ADDRi 




457 


000010* 


000004 


vector: 


4+0 


458 


000012* 


263 


BR1 1 


.BYTE 


459 


000013' 


200 


BR2: 


.BYTE 


460 


000014* 


000001 


DVIDl 1 


+ 1 


461 


000016* 


000000 


SRI | 


OPEN 


462 










463 


000020* 


1 40004 


STATl 


1 40000 


464 


000022* 


000332* 


InIT: 


START 


465 


000024' 


000164' 


SPOINTl 


MODSP 


466 


000026' 


000000 


PASCNTl 




467 


900030* 


000000 


ERPCNT 1 




468 


000032' 


000000 


SVR0! 


OPEN 


469 


000034' 


000000 


SVRl ; 


OPEN 


470 


000036' 


000000 


SVR2 : 


OPEN 


471 


000040' 


000000 


SVR3: 


OPEN 


472 


000042* 


000000 


SVR4: 


OPEN 


473 


000044* 


000000 


SVR5: 


OPEN 


474 


000046' 


000000 


SVR6 : 


OPEN 


475 


000050' 


P00000 


CSRAt 


OPEN 


476 


000052' 




SB ADR t 




477 


000052' 


000000 


ACSRl 


OPEN 


478 


000054' 




WAS ADR: 




479 


90005 4 ' 


000000 


ASTATj 


OPEN 


480 


000056* 


000000 


ASB: 


OPEN 


481 


900060* 


0X0000 


AWASl 


OPEN 


482 


900062* 


000516* 


RSTRT: 


PESTRT 


483 








. REPT 


484 








.NLIST 


485 








.WORD 


486 








.LIST 


487 








.ENDR 


488 


000164* 




MODSP: 




489 










490 








.GLOBL 


491 








.GLOBL 


492 










493 










494 


000164' 


0000P0 


report: 





495 










496 










497 


1*00166' 


030010 


LPCNT: 


10 


498 


000170' 


000036 


TIMELNl 


30. 


499 


000172' 


000012 


ERRLVL: 


10. 



2 BITS) 



<LAA >, 1.4,4,4 
1 40000, NLAA ,1,4,4.4, 
NLAA 0EC/X11 SYSTEM EXERCISs 
VERSION 4 9/6/75 
BIN 



K MODULE 



/NLAA / ; MODULE NAME. 

OPEN jUSED TO KEEP TRACK OF WBUFF USAGE 

jlST DEVICE ADDS. 

;1ST DEVICE VECTOR. 
PRTY4»0 ; 1ST BR LEVEL. 

PRTY4+0 >2ND BR LEVEL. 

jDEVICE INDICATOR 1. 
, SNITCH REGISTER 1 
• ««•••##•#••»#•»••••••»»*•»•••«•*•»•*•*•***»•«**»**»•****••*•» 

; STATUS WORD. 
; MODULE START ADDR. 
, MODULE STACK POINTER. 
;PASS COUNTER. 
; ERROR COUNTER. 
;LOC TO SAVE R0. 
jLOC TO SAVE Rl. 
jLOC TO SAVE R2. 
jLOC TO SAVE R3. 
;LOC TO SAVE R4. 
;LOC TO SAVE R5 . 
jLOC TO SAVE R6. 
; ADDR Or CURRENT CSK. 
; ADDR OF GOOD DATA, OR 
;CONTENTS OF CSR. 
; ADDR OF BAD DATA, OR 
jSTATUS REG CONTENTS. 
; EXPECTED DATA. 
; ACTUAL DATA. 

; RESTART ADDRESS AFTER END OF PASS 
SPSIZ j MODULE STACK STARTS HERE. 



WAIT, TIME, 
DEVSET 



HSGSIZ, CKMSG, CRCMSG,MSGHED, MSG, PWRC NT 



•FLAG, IF THEN ERRORS ON RECEIVED MSG'S 

| ARE TOTALLED AJ4D PRINTED EVERY * PASSES 

•IF »0, ERRORS ARE ALL REPORTED AS THEY HAPPEN . 

I ITERATIONS PER END PASS CALL 

f TIME OUT FACTOR, IN SECONDS 

t NUMBER OF ERRORS TOLERATED 
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500 
S01 
502 
50? 
504 

506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 



000174' 
000176* 
000200' 

900202' 
■;8320 4* 
000206' 
000210' 



1 1 3226 

001134' 

001456* 

000000 

040000 

000000 



900212' 
900213' 
000214* 
000215' 
000216' 
000217' 
900220* 
000221 ' 
000222* 
♦0022 3' 
900224' 
000225* 
900226* 
900227* 
000230' 
900231 ' 



000 

001 
002 
003 
004 
005 
006 
007 
410 
011 
012 
01 3 
014 
015 
01b 
017 



113226 
ONEREC 
ONETHT 



;2 BYTES OF SYNC CHARACTER 
1 ADDRESS OF WHERE 240 GOES 
) ADDRESS OF WHERE 240 GOES 



SPARE3: 
SPARE4S 



; PHYSICAL LINE TABLE. BYTE CONTAINS THE PHYSICAL 
; LINE f FOR THE FIRST LINE TO BE RUN . BYTE 1 WILL BE 
J THE PHYSICAL LINE RUN SECOND, ETC. 

) EACH BYTE IN THE TABLE HAS THE FOLLOWING BIT MEANINGS: 



;BIT 0-3 
•BIT 4 
JBIT 5 
•BIT 6 
•BIT 7 
PHYTAB I 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
. BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



PHYSICAL LINE I 

FOR POINT-TO POINT, 1 FOR HULTI-DROp 

FOR SLAVE, 1 FOR MASTER (DERIVED FROM SRI) 

FOR HALF DUPLEX, 1 FOR FULL 

DO NOT TEST, 1 TEST (DERIVED FROM DVIDl) 





2 
3 
4 

5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 



537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 



000232' 
9002 3 3 * 
0002 34' 
000235* 
000236' 
000237* 
900240' 
900241 * 
000242' 
000243* 
000244' 
000245' 
900246' 
900247* 
900253' 



000 

000 

000 
003 
000 
300 
Kt)«t 

t)00 

004 
000 

000 
000 
000 
000 
00* 



; ERRTAB , KEEPS TRACK OF RETRY ERROR COUNTS FOR 
; EACH LINE 

EPRTAB: . BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE f» 

.BYTE 

.bYTE 
.BYTE . e 

. BYTE 

.PYTE k) 
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556 


(100251 * 


000 


.BYTE 





557 










558 










559 






lECOUNT TABLE KEEPS TRACK OF 1 OF BAD MSG'S 


56d 


900252* 


000 


ECOUNTJ . RYTE 





56t 


00025 3' 


000 


.BYTE 





562 


000254' 


030 


.BYTE 





563 


900255* 


000 


.BYTE 





564 


900256' 


000 


.BYTE 





565 


930257' 


000 


. BYTE 





566 


000260* 


000 


.BYTE 





567 


000261 ' 


000 


.BYTE 





568 


000262' 


000 


.BYTE 





569 


00026 3' 


000 


.BYTE 





570 


000264* 


090 


.BYTE 





571 


000265* 


000 


.BYTE 





572 


900266 ' 


000 


.BYTE 





573 


000267 ' 


000 


.BYTE 





574 


000270* 


000 


.BYTE 





575 


000271 * 


000 


.BYTE 





576 






( 




577 






; 




578 






|MULTI-DROp STATION ADDRESS TABLE 


579 






(BYTE IS THE 


MULTI-DROP STATION ADDRESS 


580 






;FOR LOGICAL LINE 0, BYTE 1 IS FOR LOGICAL LINE 1. ETC. 


581 






;THIS ENTRY ONLY HAS MEANING IF CORRESPONDING 


582 






J BYTE IN PHYSICAL LINE TABLE HAS BITS 4 AND 7 SET 


583 






; AND BIT 5 OFF 


IE MULTI-DROP SLAVE TO BE TESTED 


584 


000272' 


000 


HDATABl .BYTE 





585 


<»0027 3' 


001 


.BYTE 


1 


586 


000274' 


002 


.BYTE 


2 


587 


000275* 


003 


.BYTE 


3 


588 


000276' 


004 


.BYTE 


4 


589 


000277* 


005 


.BYTE 


5 


590 


000300* 


006 


.BYTE 


6 


591 


000301 * 


007 


.BYTE 


7 


592 


000302* 


010 


. BYTE 


10 


593 


000303' 


011 


.BYTE 


11 


594 


000304* 


012 


.BYTE 


12 


595 


000305* 


"13 


.BYTE 


13 


596 


000306* 


014 


.BYTE 


14 


597 


000 307" 


015 


, BYTE 


15 


598 


00031>)' 


01b 


.BYTE 


16 


599 


000311 ' 


017 


.BYTE 


17 


600 






; 




601 






(MULTI-DROP STATION ADDRESS MENU TABLE 


602 






•THIS TABLE INDICATES TO ANY LINE RUNNING AS 


603 






(MULTI-DROP MASTER, WHICH STATION ADDRESS TO 


604 






J ATTEMPT TO EXERCISE ON THE MULTI-DROP LINE 


605 






;IT ALLOWS UP 


rO 15 DIFFERENT STATIONS TO BE 


606 






(TESTED ON A LINE. EACH BYTE WHICH IS NOTa-1 


607 






; INDICATES A STATION ADDRESS TO BE TESTED. EACH 


608 






( STATION IS TESTED, BY THE ORDER OF THE TABLE, 


609 






; UNTIL THE FIRST OCCURAMCE OF A -1 (BINARY 11111111) 


610 
611 


000312' 


377 


f 

MDMTABt .BYTE 


-1 
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NLAA .PI 1 






612 


00031 3' 






613 


000314' 






614 


(♦00315' 






615 


000316' 






616 


000317" 






617 


■W0320' 






618 


000321* 






619 


S00322" 






620 


000323' 






621 


000324* 






622 


000325' 






623 


000326' 






624 


000327' 






62S 


0Si333fci' 






626 


000331 ' 


377 




627 








628 








629 








630 


000332* 


016700 


177456 


631 


000336' 


301002 




632 


090340" 


104403 


000000' 


633 


000344' 


012705 


000000 ' 


634 


000350' 


004567 


000000 G 


635 


900354' 


012767 


000200 


636 


000362' 


P12731 


0002 32' 


637 


000366' 


006 300 




638 


000370' 


103003 




639 


000372' 


156741 


004200 


640 


000376' 


000402 




641 


000400' 


1 46741 


004172 


642 


000404' 


105061 


000040 


643 


000410' 


020127 


000211 ' 


644 


000414' 


001 364 




645 


000416' 


026727 


004154 


646 


000424' 


001406 




647 


000426* 


012767 


000040 


648 


000434' 


016700 


177356 


649 


000440" 


000750 




650 


000442* 


095201 




651 


000444' 


016700 


177336 


65 2 


000450' 


105721 




653 


000452' 


1 00002 




654 


000454' 


012710 


000002 


655 


000460* 


062740 


000010 


656 


00046 4' 


020127 


000232' 


657 


000470' 


001 367 




658 


000472' 


005067 


004076 


659 


000476' 


005767 


000000G 


660 


000502' 


001 405 




661 


000504* 


1 04407 


000000' 


662 


000510' 


1 04407 


000000' 


663 


000514' 


000766 




664 








665 








666 








667 









2t: 
3S( 



4J I 

56: 



65: 

7S: 
est 

9S: 



.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






. BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






.BYTE 






MOV 


DVID1,R0 


; GET DEVICES TO BE TESTED 


BNE 


IS 


; ANY ACTIVE? 


ENDS, BEGIN 


! 


MOV 


•BEGIN, R5 


; PREPARE FOR NXT JSR 


JSR 


R5,DEVSET 


j GO ASK FOR PARAMETERS 


MOV 


•200, MASK 


(SET UP MASK 


MOV 


IPHYTAB+16 , , Rl 


( GET END OF DEVICE TABLE 


ASL 


R0 


(CHECK EACH BIT 


BCC 


4S 


(BR IF NOT ON 


BISB 


MASK,-(R1) 


; SET THIS LINE ACTIVE 


BR 


5S 




BICB 


MASK,-(R1) 


(CLEAR THIS LINE 


CLRB 


32. (Rl) 


(CLEAR ECOUNT TABLE 


CMP 


Rl » IPHYTAB-l 


jDONE? 


BNE 


3t 


(BR IF NOT 


CMP 


MASK, 140 


; BEEN HERE BEF0RE7 


BEU 


6S 


jBR IF YES 


MOV 


140, MASK 


(SET UP MASK 


MOV 


SR1,R0 


(GET SLAVE/MASTER INFO 


BR 


2S 


(GO SET UP 


INC 


Rl 


; GET PHYTAB ADDR 


MOV 


ADDR, R0 


(GET DEVICE ADDR 


TSTB 


(Rl)* 


■DEVICE ACTIVE? 


8PL 


8S 


; BR IF NOT 


MOV 


#2,{R0) (SET DATA TERM READY 


ADD 


110, R0 


;BUMP R0 


CMP 


Rl, IPHYTAB+16. 


; DONE? 


BNE 


7S 


; BR IF NOT 


CLP 


MSGCNT 


(COUNTS WHEN TO DO SUMMARY 


TST 


WAIT 


(LINES SET UP? 


BEO 


RFSTRT 


;BR IF YES 


BREAKS 


BEGIN 


(TEMPORARY RETURN TO MONITOR,... 


BREAKS 


BEGIN 


(THEN CONTINUE AT NEXT INSTRUCTION 


BR 


9S 


(WAIT TILL WAIT IS CLEARED BY NET2 


-OUT THF PROGRAM MANY 


LOCATIONS ARt REFERENCED 


CR4). 


1HI5 IS A MEANS 


Or KEEPING TttG SETS Or 
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668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 

680 

681 
682 
683 
684 
685 
686 
687 
688 
689 
694 
691 
692 
693 
694 
695 
696 
697 
699 
699 
730 
701 
702 
703 
704 
70S 
700 
707 
738 
709 

711 
717 
713 
714 
715 
716 
717 
718 
719 
723 
721 
722 
723 



; VARIABLES, ONE FOR EACH OF THE ACTIVE LINES. 

!R4 ALWAYS CONTAINS A 9 IF THE PROGRAM IS CURRENTLY 

REFERENCING LINE OR A 2 IF IT IS REFERENCING 
;LINE l. 



000516' 


l«05767 


000000G 


hestrt: 


TST 


PWRCNT 


;HAS THERE BEEN A POWER FAIL? 


000522' 


001 402 






BEG 


1$ 


;CONTINUE IF NOT, 


080524' 


1 04403 


000000* 




END! 


« BEGIN 


| 


800530 


005034 




1$: 


CLR 


R4 


;FIRST ACTIVE LINE 


000532' 


016706 


1 77266 




HOV 


SP0INT,R6 


;INIT STACK 


•00536* 


005067 


004206 




CLR 


DR0PR4 


•CLEAR ALL EXIT FLAGS 


000542' 


005067 


004204 




CLR 


DR0PR4+2 




90054b' 


8*5067 


004202 




CIS 


DTSRR4 




000552* 


005067 


004200 




CLR 


DTERR4+2 




000556' 


005067 


004176 




CLR 


CRCR4 




000562' 


005067 


004174 




CI,R 


CRCR4+2 




000566' 


005067 


004172 




CLP 


RCT0R4 




000572' 


005067 


004170 




CLR 


RCT0R4*2 




900576* 


005067 


004166 




CLR 


TXT0R4 




000602' 


005067 


004164 




CLR 


TXT0R4+2 




30060o' 


005067 


004162 




CLR 


FDBKR4 




000612' 


005067 


004163 




CLR 


FDBKR4+2 




1*30616' 


005067 


004156 




CLR 


CHKR4 




800622' 


005067 


004154 




CLR 


CHKR4+2 




030626' 


P05067 


004114 




CLR 


PASTIM 


;CLR PASS TIME FLAG 


00063 2' 


03S067 


004106 




CLR 


BRKFLG 


;CLR FLAG THAT SaYS WE'RE IN BREA 


030636' 


012767 


000212' 003734 




MOV 


IPHYTAB,NXTLlN 


^POINTS TO NEXT LINE TO TEST 


000644' 


005067 


003766 




CLR 


LINACT 


;SHOW MO LINES ACTIVE 


000650' 


076727 


003724 000232* 


GETNXT: 


CHp 


NXTLIN, IPHYTAB+16 , ;D05E ALL LINES? 


03065b' 


03t440 






BEO 


DONE 


;BR IF SO 


000660* 


016700 


003714 




MOV 


NXTLIN, R0 


j GET ADDR OF NEXT LINE 


030b64' 


01 0064 


004644' 




MOV 


R0,CURLIN(R4) 


;SAVE IT 


030673* 


1 35060 


000020 




CLRB 


20C.R0) 


;CLEAR RETRY COUNT FOR THIS LINF 


b0067»* 


005267 


003700 




INC 


NXTLIN 


;BUMP FOR NEXT TIME 


000700' 


1 1 1000 






MOVB 


(R0),R0 


; GET PHYSICAL LINE BYTE 


U00702' 


P32362 






BGE 


GETNXT 


jBP BACK IF BIT 7 NOT ON 


C30704' 


U16701 


177076 




MOV 


ADDR.Rl 


;SET UP TO CALC ADDR 


030710* 


034767 


004070 




JSR 


PC, GET ADR 


;G0 CALC ADDR 


000714° 


010164 


004602' 




HOV 


R1,DVASAV(R4) 


;SAVE DVA FOR THIS LINE 


000720' 


016701 


177064 




MOV 


VECTOR, Rl 


;SET UP TO CALC VECTOR ADDR 


fc00724' 


£04767 


004054 




JSR 


PC,GETADR 


;G0 CALC 


S00736* 


010164 


004606 * 




NOV 


RlfVCTSAVlR*) 


jSAVE IT 


000734* 


005267 


003676 




INC 


LINACT 


jSHOW A LINE'S RUNNING 


000740' 


005064 


004660* 




CLR 


L00P(R4) 


|CLEAR ITERATION COUNT 


000744' 


005064 


004740' 




CLR 


RCVT0(R4) 


jCLR PEC TIME OUT COUNT 


000750' 


032700 


000020 




BIT 


•20, R0 


;MULTI DROP OR NOT? 


000754' 


001 377 






BNE 


MD 


; BR IF IT IS 


000756' 


000427 






BR 


PP 


jBR IF NOT TO P TO P 


000760' 


005767 


003652 


DONE: 


TST 


LINACT 


: ANY LINES RUNNING? 


000764' 


001 402 






BEO 


IS 


»BR IF NO 


000766' 


0031 67 


003306 




JMP 


TIMCHK 


jif yes go Check for time out 


000772' 


012701 


000212* 


ltl 


MOV 


IPHYTAB.Rl 


jMUST CHECK IF MAYBE ALL LINES DP 


000776' 


1 05721 




2$: 


TSTB 


(Rl) + 


;IS THIS LINE STILL SELECTED? 
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721 


031 00** 


1 30405 




725 


001t)02* 


022701 


000232' 


726 


001006' 


031 373 




727 


001010' 


1 34403 


000000' 


728 








729 


»•» 10! 4' 


01 2767 


00000! 


73.5 








731 


P01022' 


[y05767 


003716 


732 


031026' 


3.11002 




7 33 


n01£>30' 


030167 


003360 


734 








735 


00 1 3 4 ' 






736 


»01031' 


1 34400 




737 








738 


(•01036' 


C12764 


000001 


739 


B01H44' 


032700 


000100 


743 


k>01050' 


031 402 




741 


P01O52* 


0301 67 


000512 


742 


»0105b' 


035064 


004734' 


743 


B0I062' 


032700 


000040 


744 


001066* 


001 1 41 





745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 

761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 



301i>70' 
031 073' 
P01P76* 
1*01104' 
031 112' 
031 120' 
301 176* 
0011 32* 
001 1 34' 
001 1 3b' 
031 140' 
001 1 46' 
031 154' 

031 170' 
B01 176' 
031232' 
001210' 
P01214' 
031 216' 
001224' 
001230' 
001236' 
#01240' 
031244' 
001250' 
001 254' 
001 260' 



031264' 
B01272" 
001276' 



P16464 
016764 
062764 
016764 
066764 
004767 
030462 
333401 
030432 
012764 
(J16764 
062764 
a; ??£4 
012764 
004767 
016761 
1*04767 
030423 
»42774 
005264 
026764 
003314 
005367 
016403 
042713 
035363 
0001 67 



042774 
012733 
030401 



4s: 

;POI 



004612* 004616* 
000000G 004622' 
000012 004622' 
177052 004626' 
177044 004626' 
000766 



000000G 004670' 
000000G 004703' 
000012 1)04703' 

011120* 034674' 
002704 

176762 034710' 
002162 

000004 004602' 
004660' 

176732 004660' 

003372 

004602' 

177775 

000004 

177364 



000004 004602* DERR: 
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BMI 


3S 


;BR OUT IF YES 


C-P 


IPHYIAB+16..R1 


;CHECKED ALL 16? 


BNE 


2S 


jBR BACK IF NO 


ENDI, BEGIN 




MOV 


|1.pA«TTM 


;SHQW IT IS TIME FOR ENDPAS 






; FOR BREAK LOOP 


TST 


BRKFLG 


; ARE WE IN A BREAK LOOP? 


BNE 


48 


;BR IF WE ARE 


JMP 


EPASS 


;G0 DO END OF PASS 


EXITS 




;EXIT TO MONITOR. MODULE WAIT FOR INTERUPT, 


TO POINT 






MOV 


11, FDFLAGCR4 ) 


;SAY WERE FULL DUPLEX 


BIT 


»100, R0 


; HALF OR FULL DUPLEX? 


BEO 


IS 


; BR IF HALF 


JMP 


PPFD 


;JMP TO FULL DUPLEX ROUTINE 


CLR 


FDFLAGCR4) 


;CORRECT FLAG CAUSE WERE NOT FD 


BIT 


•40, Rfl 


; SLAVE OR MASTER? 


BNE 


PPHDM 


; BR IF MASTER 


TO POINT 


HALF DUPLEX, SLAVE 


HOV 


AMSGBFC R4) , R EC ADR ( R4 ) >SET UP INPUT AREA 


MOV 


MSGSIZ,RECCNT(R4) >SET UP COUNT 


ADD 


I12,RECCNT(R4) 


iCORRECT FOR HEADER AND CRC 


MOV 


TIMELN, PECTIMCR4) >HOW LONG TO WAIT 


ADD 


TIMBLN, RECTIH(R4) ;DOUBLE IT 


JSR 


PCREC 


jGO RECEIVE DATA 


bR 


FEPR 


;BP TO ERROR ROUTINE 


BR 


IS 


; MAKE THIS A NOP«240 TO 


BR 


PPHD32 


;D0 ONE-WAY-IN CREC. 0NLY1 


MOV 


• MSGHED, TXADR1 ( R4) 1 GET MESS ADR 


MOV 


MSGSIZ,TXCNT1CR4) I GET HSG SIEE 


ADD 


• 12 » TXCNTl ( R4) 


;C0RRECT FOR HEADER AND CPC'S 


MOV 






MOV 


• FILL, TXADR2 C R4) 




JSR 


PC,CTS 


;G0 GET CLEAR TO SEND 


MOV 


TIMELN, TMTTIM(R4 


) ;GIVE *FM 1/2 MINUTE 


JSR 


PC.TMT 


;G0 TRANSMIT 


BR 


DERP 


;br to error routine 


BIC 


•4,»DVASAV(R4) 


; KILL REQ TO SEND 


INC 


L00PCR4) 


;C0UNT AN ITERATION 


CMP 


LPCNT,L00P(R4) 


;DONE ENOUGH i 


BGT 


PPHDS 


;N0, GO DO ANOTHER TIME 


DEC 


LINACT 




MOV 


DVASAV(R4),R3 


;GET DEVICE ADDRESS 


BIC 


1177775, (R3) 


;KILL ALL BUT DTP 


CLR 


4CR3) 


;KILL TRANSMITTER TOO 


JMP 


GETNXT 


jYFS DO NEXT LINF 


BIC 


* 4,8DVASAVCP4) 


; K I LL REQ TO SEND 


HOV 


S-1.R3 


;SET FLAG FOR WHICH PFT"R>- 


BR 


FEPR1 
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5EQ 0143 



780 


001 300" 


03500 3 


781 


•01 302 * 


016401 


782 


00 1 306 ' 


1 05261 


78 3 


001 312' 


1 261 67 


784 


001 32ri * 


002003 


785 


001322* 


005703 


786 


001 324 ' 


001703 


787 


#01 326* 


0007 36 


788 


001 330 ' 


142711 


789 


Ml 334' 


005264 


790 


001 340* 


1 »44l 1 


791 


001 346 ' 


005767 


792 


001352' 


001 402 


793 


001 354* 


095004 


794 


001 356 ' 


000402 


795 


001 360" 


01 2704 


796 


00 1 3 6 4 ' 


005364 


797 


001 370' 


000723 


798 






799 






800 






80 1 






802 


00 1 3 7 2 




803 


001 37 2 * 


01 2764 


804 


001 400 * 


01 6764 


805 


001 406 * 


062764 


806 


£01 4 1 4 ' 


01 2764 


807 


001 422 * 


01 2764 


808 


001430* 


004767 


809 


001434' 


016764 


810 


001 44 7 ' 


004767 


81 t 


s»0 1 446 ' 


0004 34 


812 


B31450' 


042774 


813 


001456' 


0004 01 


814 






815 






816 


01)146*' ' 


*004 1 7 


817 


001 462 ' 


ml 6464 


8 18 


001 470' 


01 6764 


819 


H01 476* 


062764 


820 


001504* 


pi 6764 


82 1 


0O1 5 1 2 * 


0*) 4 7 6 7 


822 


00 1 5 1 6 * 


0004 1 3 


823 


001520* 


005264 


824 


00 1 5 2 4 * 


026764 


825 


5 » 2 • 


003317 


826 


001 534 


000 167 


827 






828 








00 1540" 


042774 


830 


001546' 


016401 


831 


001552* 


1 05261 


832 


00155b' 


1 26167 


833 


£01564' 


002261 


834 


001566' 


000754 


835 







004644* 

000020 

000020 176652 



000300 
004750' 

011124* 000000* 
003376 



FERR: 
FERR1 : 



000002 
004750* 



000000G 

000000G 

000012 

000004 

011120* 

002452 

176530 

001730 



004670' 
004700' 
004700* 
004704' 
004674* 

004710' 



000004 004602' 



004612' 004616' 

000000G 004627' 

000012 004622' 

176460 004626* 
000402 

004660' 

176436 004660' 



000004 004602' 
004644' 

000020 

000020 176406 



CLP 


R3 


MOV 


CURLIN(R4 ) , Bl 


IHCB 


20CR1 ) 


CMPB 


?0(R1 1 , ERRL V L 


BGE 


DROP 


T5T 


R3 


BFQ 


ONEREC 


BP 


PPHDS2 


BICB 


1200/ (Bl ) 


INC 


DROPR4(R4) 


MSGNf 


ADROP, BEGIN 


TST 


DR0PR4 


BEQ 


1$ 


CLR 


R4 


BP 


2$ 


MOV 


12, R4 


DEC 


DR0PR4CR4) 


BP 


LHDONF 



•SET FLAG FOR WHICH RETURN 
j GET LINE I ADDP 
;COUNT AN ERROR 
jTOO MANY ERROPS? 
;BR IF YES 

;D0 A TMT OR DO A REC? 

•BR IF TMT 

;G0 TRY AGAIN 

;DPOP THE LINE FROM TEST 

jSEE NOTF I IN FRONT OF LISTING 

;ASCII MESSAGE CALL WITH COMMON HEADER 



IS! 
2S> 



JPOINT TO POINT HALF DUPLEX MASTER 



MOV 
MOV 
ADD 
MOV 
MOV 
JSR 
MOV 
JSR 
BP 
BIC 
ONETMTJ BP 



BR 

1 s : mov 

MOV 
ADD 
MOV 

JSR 
BR 

PPHDH2: INC 
CMP 
BGT 
JMP 



GERRt BIC 
HERRI MOV 
INCB 
CMPB 
BGE 
BR 



iMSGHED, TXaDRI (R4) 

MSGSIZ,TXCNT1(R4) 

I12,TXCNT1(R«) 

I4,TXCNT2(P4) 

IFILL, TXADR2 ( R4 ) 

PC,CTS 

TIMELN, TMTTIM(R4) 

PC, TMT 

GERR 

I4,8DVASAV(R4) 
1« 



PPHDM2 

AMSGBFCR4 ) , RECADRCR4 ) 

MSGSIZ,RECCNT(R4) 

I12,RECCNT(R4) 

TIMELN, RECTI H(R*) 

PC, REC 

HEPR 

L00PCR4) 

LPCNT,LO0P(R4) 

PPHDM 

LNDONE 



»4,0DVASAV(R4) 

CURMNtP4),Rl 

20CR11 

20(P1), ERRLVL 

DROP 

PPHDM2 



GET MSG ADDRESS 
GET MSG SIZE 

CORRECT FOR CRC AND HEADER 
j SEND 4 FILLS AFTER MSG 

;G0 GET CLEAR TO SEND 

,GIVE 'EM 1/2 MINUTE 
;G0 TRANSMIT 
; ERROR RETURN 
; KILL PEQ TO SEND 
; MAKE THIS A NOP«240 FOB ONE 
;WAY OUT, TMT ONLY. OTHER SIDE 
;0F LINE MUST DO ONE WAY IN. 
jUSED FOR ONE WAY OUT ONLY 
;SET UP INPUT AREA 
;SET UP COUNT 

.•CORRECT FOR HEADER AND CPC 

;GIVE EM 1/2 MINUTES 

;G0 RECEIVE 

; ERROR RETURN 

;COUNT AN ITERATION 

jDONE ENOUGH? 

•BR IF NOT 



; KILL REQ TO SEND 
;GET LINE • ADDRESS 
;COUNT AN ERROR 
;T00 MANY ERRORS? 
; BR IF YES 
;G0 TRY AGAIN 
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836 
837 
8 38 



; POINT -TO-POINT FULL DUPLEX 



866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
8B0 
88 1 
882 
883 
884 
885 
886 
P87 
888 
889 
»90 
B91 



8 39 


001573' 


d'2700 


000040 




PPFD: 


BIT 


840 


#01574' 


001003 








BNE 


841 


001576' 


01 27b4 


177777 


004734* 




MOV 


842 


001604' 


004767 


002276 




1SI 


JSP 


843 


001610' 


016464 


004612' 


004616' 


PPFD1 ! 


MOV 


844 


001610* 


PI 6764 


000000G 


004622' 




MOV 


845 


001624' 


062764 


00001 2 


004622' 




ADD 


846 


001632' 


00476 7 


000262 






JSP 


847 


001636' 


000500 








BP 


84b 


,331640' 


000441 








BP 


849 


00164 2 ' 


12 / 6 4 


000000U 


0046 1 " 






850 














851 


001 650' 


016764 


000000G 


004700' 




MOV 


852 


0J1656* 


062764 


000012 


004700' 




ADD 


853 


031664' 


01 2764 


000004 


004704' 




MOV 


854 


001672' 


012764 


011120' 


004674' 




MOV 


855 


001700* 


004767 


001472 






JSR 


856 


001704' 


000455 








BP 


857 


00170b' 


00041 2 








BR 


858 


<»01710' 


01 2700 


002106' 






MOV 


859 


001714* 


016701 


176250 






MOV 


860 


901720' 


066701 


176244 






ADD 


861 


001724' 


"12702 


000000 






MOV 


862 


001730' 


0001 67 


002270 






JMP 


863 














864 


001734' 


012764 


000001 


004720' 


is: 


MOV 


865 


001742' 


104400 








EXIT* 



140, R0 { MASTER OR SLAVE? 

1$ ;BR IF MASTER 

•177777, FDFLAG(R4) ; SHOW ITS SLAVE 

PCCTS »G0 GET CLEAR TO SEND 

AMSGBFC R4 ),PECADR(R4) ; GET INPUT AREA 
HSGSIZ,RECCNT(R4) ;SET UP COUNT 

•12,RECCNT(R4) jCORRECT FOR CRC AND HEADER 
PC, REC ;G0 GET RECEIVING STARTED 

JERR ;REC ERROR PETUPN 

FDRCDN jREC DONE 

; GET TMTADDP 
MSGSIZ.TXCNT1 (R4) ; GET TMT COUNT 

»12,TXCNT1(R4) jCORRECT FOR HEADER AND CPC 
I4,TXCNT2(R4) ; SEND 4 FILLS AFTER MSG 

•FILL, TXADR2CR4) 



PC, TMT 

JERR 

18 

•FDTO.R0 
TIMELN, Rl 
TIMELN, Rl 
• 0,R2 
TIMKEP 

»1,TMtD0NCr4) 



jGO TMT 

• TMT ERROR RETURN 
jGOOD TMT DONE RETURN 

•FULL DUP RETURN, SET UP FOR TIME OUT 
;GIVE EM 1 MINUTE 



;SHOW ITS 
jGO WAIT 



A PEC WAIT 



•SHOW TMT IS DONE 

jEXIT TO MONITOR. MODULE Writ FOR INTERUPT. 



001744' 


005764 


004723' 




FDRCDN: 


TST 


TMTD0N(f>4) 


;IS TMT DONE YET? 


001750* 


001020 








BNL 


41 


;BP IF YES 


001752* 


005764 


004774' 






INC 


FDBKR4 ( R4 ) 


jSEE NOTE 1 IN FRONT oF LISTING 


001756' 


104407 


000000' 






BPEAKt 


BEGIN 


; TEMPORARY RETURN TO MONITOR,.,. 


001762' 


1 04407 


000000' 






BREAKS 


BEGIN 


j THEN CONTINUE AT NEXT INSTRUCTION. 


•01766* 


005767 


003002 






TST 


FDBKR4 




001772' 


001402 








BEO 


2S 




001774' 


005004 








CLR 


H4 




001776' 


000402 








PP 


it 




002000* 


01 2704 


000002 




2S: 


MOV 


• 2,R4 




002004' 


005164 


004774' 




38: 


DEC 


FD8KR4 ( R4 ) 




002010' 


000755 








BR 


I DRCDN 


•BR AND WAIT SOME MORE 


B02012' 


005264 


034660' 




4$: 


INC 


L00P(R4) 


;COUNT AN ITERATION 


002016' 


026764 


176144 


004660* 




CHP 


LPCNT,L00P(P4) 


; DONE ENOUGH 


002024' 


003271 








BGT 


PPFD1 


;N0, GO DO MORE 


002076' 


042774 


000004 


004602' 




BIC 


f 4, UDV*SAV(R4) 


;KILL REO TO SEND 


*02034' 


0031 67 


177200 






JMP 


LNDONSC 












;FD T"T 


ERROR 






002040' 


012764 


000001 


00472"' 


JFRr: 


MOV 


»1,TMTD"!N(F*> 


;DON'T BOTHER WAITING FOR T*T 


P02046' 


1112764 


177777 


00464^' 




MOV 


»1 77777, ABO'Tt 


»4) ; TELL INT ROUTINES TO GIVE UP 


002054* 


016401 


004644 ' 






MOV 


CUPLIN(P4),PS 


; GET CURRENT LINE INFO 


1*02060" 


105261 


00002P 






INCB 


20(R11 


; CO!INT ANOTHER FRK0R 
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SEQ 0145 



892 
893 
894 

895 
896 
897 
898 
899 
900 
901 



002064' 126167 
002072' 002724 
("02074' P42774 
»02102' 900167 



(M2106* 012764 
002H4* 000167 



000020 l7t>W1i< 



000004 

177222 



002040' 
06Ui» 



CMPB 
BIT 
BIC 
JHP 



20<Rl),ERRLVL 
f DRCON 

I4,«DV»3AV(R4) 

DROP 



j TOO HANK ERRORS? 
;NO GO TRY AGAIN 
•KILL REQ TO SEND 
|GIVE UP ON THIS LINE 



»FULL DUPLEX RECEIVER TIMEOUTS COME HERE 
004664* FDTO! MOV S JERR, RECPT** C R* ! " SET up C0RBECT RETURN 

JMP PDTO »GO REPORT PEC TIME OUT 
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902 
90 3 
904 
905 
906 
987 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
979 



002120* 
902124* 
(•02130* 
H02 134' 
302136' 
002142* 
002146* 
002154' 
002160' 
002162* 
002170* 
002174' 
002200* 
002202* 
902206* 
002212* 
002216* 
002224' 



012664 
016401 
012711 
960421 
116711 
045064 
012764 
P05764 
001 410 
052774 
016402 
062702 
010207 
012700 

«i64m 

017702 
052774 
003167 



004664' 
004606' 
002230* 

175650 
004640' 

000001 004632' 
004734* 

000100 004602' 
004664* 

000004 

003230' 
004626' 
000000 

000100 004602' 
001774 



; 

5 SUBROUTINE TO 
'CALLED WITH A 
; AFTER SETTING 
; AND DVASAVCR4) 
;2 BYTES PAST C 

; 

REC: MOV 
MOV 
MOV 
ADD 
MOVB 
CLR 
MOV 
TST 
BEO 
BIS 
MOV 
ADD 
MOV 

IS: MOV 
MOV 
MOV 
BIS 
JHP 



RECEIVE DATA 
JSR PC , REC 

LOCATIONS RECADRCR4),RECCNT(R4),RECTIM(R4),VCTSAVCR4). 
. RETURNS ON ERROR OR RETURNS 
ALL IF NO ERROR 



(R6) + ,RK:CPTN(R4 

VCTSAV(P4),R1 

I REC I NT, ( Rl ) 

R4,(R1)+ 

BR1,(R1) 

ABOPTCR4) 

f 1,SYNCNT(P4) 

FDFLAGCR4) 

It 

I 100,«DVASAV(R4 
RECRTN(R4),R2 
14, P2 

R2,R7 
•RDTO,R0 
RECTIM(R4),R1 
10, R2 

I100,»DVASAVCR4 
TIMKEP 



);SAVE RTN ADDR 

•GET VECTOR ADR 

;MOVE IN INT. ROUTINE ADR 

;CORRECT FOR WHICH LINE 

jMOV IN PRIORITY LEVEL 

;CLEAR ABORT FLAG 

;MUST GET 2 SYN CHARACTERS 
j FULL DUPLEX? 

; BR IF NOT 
) jKICK OFF REC 

J GET RETURN ADDRESS 

}FD RETURN 

jRETURN 

5 RETURN ADDR 

;HOW LONG TO WAIT 

J SHOWS ITS A REC WAIT 
) ; EN ABLE INT AND READ 

•EXIT TO TIMKEP AND WAIT 



.•RECEIVER INTERRUPT ROUTINE 



930 


002230* 


400405 




RECINTt 


BR 


1$ 




931 


002232* 


010446 






HOV 


R4,-(R6) 


•SAVE R4 


932 


002234' 


010346 






MOV 


P3.-CR6) 


jSAVE R3 


933 


•0223b' 


012704 


000002 




MOV 


12, R4 


jSET UP FOR SECOND LINE 


934 


002242* 


000403 






BR 


2* 




935 


002244' 


010446 




ltl 


MOV 


R4,-(R6) 


•SAVE R4 


936 


002246' 


010346 






MOV 


R3,-(R6) 


j SAVE R3 


937 


002250* 


005004 






CLR 


R4 


;SET UP FOR FIRST LINE 








run AC at? * 










939 


002256' 


005764 


004640' 




TST 


AB0RKR4) 


jdVE UP? 


940 


002262' 


001403 






BEO 


3* 


;BP ir NO 


941 


002264* 


042713 


000140 




PIC 


1140, (R3) 


;DISABLE REC INT.S 


942 


002270' 


000452 






BR 


7t 


; AND LEAVE 


943 


002272* 


011364 


004654' 


3SI 


MOV 


(R3).ERRWD(R4) 


jSAVE STATUS 


944 


002276' 


016346 


000002 




MOV 


2(R3),-(R6) 


jSAVE CHARACTER AND ERR BITS 


945 


002302* 


005764 


004632' 




TST 


SYNCNTCR4) 


; ARE WE IN SYNC 


946 


002306* 


001 41 3 






BEO 


5$ 


;BR IF YES 


947 


#02310' 


122716 


000220 




CMPB 


1220, (R6) 


;IS IT A OLE? 


948 


002314' 


001401 






BEG 


4S 


;BP IF YES 


949 


002316' 


000434 






BR 


6S 


;NOT IN SYN SO THROW AWAY 


950 


•02320' 


005064 


004632' 


4s: 


CLR 


SYNCNT(R4) 


•SHOW WE'RE IN SYN 


951 


002324' 


005764 


004734' 




TST 


FDFLAGCR4) 


;FD SLAVE? 


952 


002330* 


1 00002 






BPL 


5$ 


; BR ir NOT 


953 


002332* 


005064 


004724' 




CLR 


TSYNCTCR4) 


; LET TMT GO IF FULL DtIP 


954 


002336' 


005767 


175672 


5$: 


TST 


REPORT 


; REPORT ERR NOW OR LATER 


955 


002342' 


0»1«1 3 






BNE 


51$ 


;BR IF LATER 


956 


002344' 


105764 


004654* 




TSTB 


ERRWD ( R4 ) 


;IS REC DONE BIT SET? 


957 


002350' 


1 00040 






BPL 


KERR 


;BR IF NOT 
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958 


«>02352' 


005716 








959 


•02354' 


1 ><0006 








960 


002 356' 


012664 


004654 ' 






961 


002362* 


042764 


100000 


004654 * 




962 


•02170* 


0004 31 








963 


002372' 


1 11674 


004616' 




51*: 


964 


00237b* 


005264 


004616' 






965 


T02402' 


005364 


004622' 






96b 


002406' 


003406 








967 


002410' 


90572b 






btl 


968 


002412' 


052713 


000100 






969 


0024J6' 


012603 






7«! 


970 


002420* 


012604 








971 


032422' 


000002 








972 


002424' 


016467 


004650' 


000014 


8t: 


973 


007432* 


005726 








974 


00243 4' 


0477 l 3 


000140 






975 


002440' 


012603 








976 


002442' 


012604 








977 


002444' 








RPIRO: 


978 












979 


002444 * 


000004 


002654* 


000000' 




980 












981 










1 


982 


002452* 


005726 






RERR: 


983 


002454' 


012603 








984 


002456' 


042774 


000140 


004602* 




985 


002464' 


01 2767 


002512* 


000014 




986 


002472' 


060467 


000010 






987 


002476* 


060467 


000004 






988 


002502" 


012604 








989 


002504' 








it: 


990 












991 


002504' 


01*0004 


002512* 


000000' 




992 












993 


002512' 


005004 






2S» 


994 


00251 1' 


000402 








995 


002516' 


CI 2704 


000002 






996 


002522' 


016467 


004602' 


175320 


3t: 


997 


002530* 


016467 


004654' 


175314 




998 


0025 36" 


016401 


004644' 






999 


002542* 


111102 








11)00 


002544 * 


042702 


177760 






1001 


002550' 


005764 


004654" 






1002 


002554' 


100010 








1003 


002556' 


010267 


175272 






1004 


002562* 


062767 


002000 


175264 




1005 












1006 


002570' 


104404 


000000' 






1P07 












1008 


002574* 


104400 








1009 












1010 












101 1 


002576' 


010267 


175252 




DATAERI 


1012 


002602' 


1 16467 


004655' 


175245 




1013 


002610* 


042767 


107400 


175236 





TST 


IR6) 


; DATA ERROR? 




BPL 


51$ 


; BR IT NO DATA tRP 




MOV 


(R6)*,ERRWD(R4) 


;SAV£ INFORMATION 




BIC 


1 100000> ERR WD ( R4 ) ;USE BIT 15 FOR 


FLAG TO RERP 


BP 


REPR+? 




IN buffeV 


MOVB 


(R6)»*RECADP(R4) 


(STORE THE CHAP 


INC 


REC ADR( R4 ) 


;FOP NEXT TIME 




DEC 


RECCHTCR4) 


;COUNT IT 




BLE 


et 


;BR If DONE 




TST 


(R6) + 


;FIX STACK 




BIS 


•100. (R3) 


; READ ANOTHER 




MOV 


(R6)»,P3 


;RESTORE R3 




MOV 


(R6)+,R4 


; RESTORE R4 




RTI 




; RETURN 




MOV 


RECD(R4).RPIR0*2 








(R6) + 


;FIX STACK 




BIC 


1140, (R3) 


;DI5ABLE REC INT.S 




MOV 


CR6)*,R3 


; RESTORE REGS 




MOV 


(R6)*,R4 






PIRQS 


RECDN , BCG*N 


; RTI ANp QUEUE 


UP TO CONTINUE AT 


TST 


(R6) + 


;FIX STACK 




MOV 


(R6)+,R3 


;PESTORE REG 




BIC 


•140,*DVASAVCR4) 


; RESET THE RECEIVER 


MOV 


125,11*2 


;SET UP TO PIRO 


TO 


ADD 


R4,lS+2 


; THE RIGHT PLACE 




ADD 


R4,18*2 






MOV 


(R6)*,R4 


; RESTORE REG 





PIRQ8»2$. BEGIN 



CLR 

BR 

MOV 

MOV 

MOV 

MOV 

MOVB 

BIC 

TST 

BPL 

MOV 

ADD 



R4 
3t 

• 2.R4 

DVASAV(R4),C6RA 
ERPWD(R4), AC6R 
CURLIN(P4),P1 
(R1)»R2 
§177760, R2 
ERRWD(R4) 
DATAEP 
P2,ASTAT 
1002000, AST AT 



ERRORS , BEGIN 



RTI AND QUEUE UP TO CONTINUE »T 2S 



show its line 

show its line 1 
set up for err call 
set up for err call 
get addr of cur line byte 
get value of line • 
throw other bits away 

; is it a data or line change err 
br if data err 
set up err indication 
show which type 



EXIT* 



MOVB 
BIC 



DATA SET CHANGE 
jEXIT TO MONITOR. MODULE «AIT FOR INTERUPT. 



R2,ASTAT ;SET UP ERR LINE » 

ERRWD+ 1 ( R4) , AST AT* 1 ; GET ERR TYPE 
1107400, ASTAT ; LEAVE ONLY ERR BITS 
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1014 


002616' 


005264 


004754' 






INC 


DTERR4(R4) 


;SEE NOTE 1 IN FRONT OF LISTING 


1015 
1016 


002622' 


104404 


000000* 






ERRORS 


, BEGIN 


-DATA ERR 


101 7 


















1018 


002626' 


005767 


002122 






TST 


DTERR4 




1019 


002632' 


001 402 








BEQ 


IS 




1020 


002634' 


005004 








CLR 


R4 




1 f* 2 1 


002636' 


000402 








BR 


2$ 




107? 


002640* 


012704 


000002 




is: 


MOV 


12, R4 




1023 


002644' 


005364 


004754* 




2s: 


DEC 


DTERR4CR4) 




1024 
1025 










;CHECK 


ASTAT 


IN ERROR MESSAGE 




1026 










;0!00XX 


■ REC 


DATA PARITY ERROR 




1027 










;0200XX 


* fpAHIKG ERROR 




1028 










(0400XX 


> OVERRUN 




1029 










} XX a PHYSICAL 


LINE 1 




103.1 


















1031 


002650' 


0001 67 


000230 






JMp 


RRET 


j GO DO AN ERROR EXIT 


1032 










! 








1033 


















1034 


















1035 


302654* 


005004 






RECDN: 


CLR 


R4 


;SHOW WE'RE LINE 


1036 


002656' 


000402 








BR 


IS 




1037 


032660' 


012704 


000002 






MOV 


• 2,R4 


j SHOW WE'RE LINE 1 


1038 


002664* 


042774 


177771 


004602* 


'5: 


BIC 


•177771, 0DVASAVCR4) jSHUT UP DEVICE 


1039 


002672' 


005064 


004740' 






CLR 


RCVT0(P4) 


! RESET TIME OUT RETRY COUNTER 


1040 


002676' 


005064 


005040' 






CLR 


RETTABCR4) 


;KILL IMPENDING TIMEOUT 


1041 


002702' 


005767 


000000G 




3S: 


TST 


CKMSG 


jIS CHECK MSG ROUTINE BUSY? 


1042 


002706' 


001420 








BEQ 


6S 


;BR IF NOT 


1043 


002710' 


005264 


005000' 






INC 


CHKR4CR4) 


;SEE NOTE 1 IN FRONT OF LISTING 


1044 


002714' 


104407 


000000' 






BREAKS 


, BEGIN 


j TEMPORARY RETURN TO MONITOR..,. 


1045 


002720' 


104407 


000000* 






BREAKS 


, BEGIN 


j THEN CONTINUE AT NEXT INSTRUCTION. 


1046 


002724' 


005767 


002050 






TST 


CHKR4 




1047 


002730' 


001402 








BEQ 


4t 




1048 


902732* 


005004 








CLR 


R4 




1049 


002734' 


000402 








BR 


5S 




1050 


092736' 


012704 


000002 




4(: 


MOV 


»2,R4 




1051 


002742' 


005364 


005000' 




5S: 


DEC 


CHKR4CR4) 




1052 


002746' 


000755 








BR 


it 




10S3 


002750* 


016402 


004612* 




6$: 


MOV 


AMSGBF(R4),R2 


; GET REC DATA 


1054 


002754* 


026762 


177776G 


000006 




CMP 


MSG-2,6(R2) 


;IS HEADER CRC OK? 


1055 


002762' 


001407 








BEQ 


7S 


;BR IF OK 


1056 


002764* 


005767 


175174 






TST 


REPORT 


;REPOPT ERR NOW? 


1057 


082770* 


031055 








BHE 


X5 


; BR IF LATER 


1058 


002772* 


012767 


003000 


175054 




MOV 


1003000. ASTAT 


;SHOW ERR TYPE 


1059 


003000* 


000466 








BR 


RECERR 




1060 


003002' 








7s: 








1061 


003002' 


1 17467 


004644* 


000040 




MOVB 


BCURLINCP4) ,9S 


; GET LINE • 


1062 


003010' 


042767 


177760 


000032 




BIC 


•177760,98 


; LEAVE ONLY LINE BITS 


1063 


003016' 


005767 


175142 






TST 


REPORT 


;REPOPT BAD DATA? 


1P64 


003022* 


001403 








BEQ 


S3 


jBR IF YES 


1065 


003024* 


052767 


100000 


00001 6 




BIS 


II000n0, 0$ 


;SET FLAG TO CKMsG 


1066 


003032' 


062702 


000010 




RS: 


ADD 


•10, P7 


; GET ADDP OF *SG 


1067 


003036' 


010267 


000010 






MOV 


R2,9S*2 




1068 


003042' 


004567 


000002G 






JSR 


R5,CMSG*2 


;G0 CHECK MSG 


1069 


031046* 


00000J1* 








BEGIN 
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SEO 0149 



1870 
1871 
1072 
1873 
1074 
1075 
1B76 
1877 
1073 
1079 
1080 
1061 
1062 
1083 
108 4 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1892 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 

1 102 
1 103 
1104 
1 105 
110b 
1 107 
1108 
1 109 
1110 
1 1 1 1 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1 120 
1121 
1122 
1123 
1 124 
1 125 











9$ S 









•03052* 


090000 















•03054' 


030417 








BR 


X4 


j BAD RETURN 




066702 


000000G 






ADD 


MSGSIZ,R2 


■POINT IT TO MSG CRC, DATA WAS OK 


003062" 


1 26722 


000000G 






CHPB 


CRCMSG.- (R2)» 


•CHECK 1ST CRC BYTE 


003066 * 


031 025 








BNE 


CER 


•0 3 7 C * 










CMPB 


CRCSG+1 , (R2)» 


;CHECK SECONU 


003074' 


081022 








BNE 


CER 




003676* 


S&2764 


000W02 


B04664 * 




ADD 


«2,PECRTN{R4) 


■GOOD RETURN 










RRETj 


CLR 


RETTAB(R4) 


vttt TMfirunTNr. TIMEOUTS 




0001 74 


0046b 4 






JMP 


•RECRTNCR4) 


;AND GO BACK 


003 114 








X4 : 


TST 


REPORT 


t REPORT ERR NOW OR LATER? 


003120' 


081001 








BNE 


X5 


j BR IF LATER 


003122 


VDV l IV 








BR 


RRET 


••OTHERWISE RETURN 


003124* 


1 1 7402 


00464 4 * 




J 

X5| 


MOVB 


»CURLIN(R4)»R2 














BIC 


I177760#R2 






1 05262 


amahs'} # 






INCB 


ECOUNT(R2) 


"Count an error for that line 


00 3140 


00076 1 








BR 


RRET 


•AND RETURN 




005767 


1 50 6 




1 

CEr: 


TST 


REPORT 






001 366 








BNE 


XS 


|BR IF LATER 


00 3 1 50 


01 2767 




1 74676 




HOV 


#004000, A8TAT 


t indicate error type 


UM^IA?' 




0046 44 * 




RFT CDS • 


MOVB 


»CURLTN(R4),R2 


j GENERATE LINE t 




042702 








BIC 


1177760, R2 




003 166 




174662 






BIS 


R2# ASTAT 


|ADD IN LINE • 


003172 


"j * 


004760 * 






INC 


CRCR4(R4) 


•SEE NOTE 1 IN FRONT OF LISTING 


SS3176' 


104434 


SSS3SS * 






ERROR* j 


■ BEGIN 


; CRC ERROR 












;»»»••»*•••«»««»•»•••••»••*»•#••»•»»»*••»••»•»*»•«•*•**»»»***•*» 


003202' 


005767 


001552 






TST 


CRCR4 




00320b' 


801402 








BEO 


It 




0032 1 ' 


005004 








CLR 


R4 




033212' 


000402 








BR 


21 




0032 1 4 




000002 




IS! 


MOV 


1 2,R4 




003220' 




004760 




2$: 


DEC 


CRCR4(R4) 




003224 * 


0001 67 


177654 






JMP 


RRET 


; BAD RETURN 










; READ TIME OUT 


ROUTINE 




f f f ? . 


01 2764 


1 77777 


eta A A da ' 


RDTO: 


MOV 


1177777, ABORT'R4)>TELL INT ROUTINES TO GIVE UP 


C03236 


005 264 








INC 


RCVT0fR4) 


;COUNT ANOTHER RETRY 


9(, 3242 ^ 




004 


74722 
14 22 




CMP 


RCVT0CR4) , EPRLVL j ENOUGH TRYS? 


083250 


00^043 








BNE 


41 


; BR If NO 


003252 " 


01 7467 


004602' 


174572 




MOV 


9DVASAV(R4)»ACSR;GET REC STATUS 


003260' 


042774 


177771 


004602' 




BIC 


4177771, »DVASAV(R4) ; K ILL ALL BUT DTR 


003266' 


D16467 


004602' 


174554 




MOV 


DVASAV(R4),CSRA 


jPUT ADDR IN FOR ERR CALL 


003274* 


016401 


004644' 






MOV 


CURLIN(R4),R1 


jGET ADDR OF CUR LINE BYTE 


003300* 


111102 








MOVB 


( Rl ) > R2 


;GET VALUE OF PHY LINE • 


003302" 


042702 


177760 






BIC 


•177760, R2 


; THROW OTHER BITS AWAY 


003306' 


0*2702 


001000 






ADD 


I10*0,R2 


; INDICATE REC TIMEOUT ERR 


003312' 


81 0267 


174536 






MOV 


R2» ASTAT 


;SET UP FOR ER CALL 


003316' 


005264 


004764' 






INC 


RCTOR4CR4) 


jSEE NOTE 1 IN FRONT OF LISTING 



NLAA DFC/X11 SYSTEM EXERCISER MODULE 



NLAS .PI 1 








1 126 








1 127 


003322' 


104404 


000000* 


1 128 








1129 


003326' 


005767 


001432 


1 1 30 


003332' 


001402 




1131 


•03334' 


005004 




11)2 


003336' 


000402 




1133 


O0334P ' 


H12704 


000002 


1 134 


003344' 


005364 


004764' 


1135 


•03350' 


005064 


004740' 


1 1 36 


003354' 


000174 


004664' 


1137 








1138 


303 360' 


016401 


004644' 


1 1 39 


••03364' 


i 05361 


000020 


1 1 40 








1 1 41 


003370' 


005364 


004660* 


1 142 


003374* 


000767 




1143 








11 44 








1 1 45 








1146 








1147 








1 148 








1 I 49 








1 150 








1151 








1152 


003376' 


012664 


004714* 


1153 


•03402' 


005064 


004720' 


1154 


903406* 


016401 


004606' 


1155 


•03412* 


062701 


000004 


1156 


•03416* 


0127U 


003546" 


1157 


•03422* 


060421 




1158 


•03424' 


116711 


174362 


1 159 


•03430* 


005064 


004640' 


1 160 


003434* 


012764 


000005 


1161 


•03442' 


016403 


004602' 


1 162 


•03446' 


005764 


004734* 


1 163 


•03452' 


001417 




1164 


•03454* 


100003 




1 165 


•03456' 


012764 


177777 


1 3 66 


•03464' 


012763 


000100 


1167 


•03472' 


012763 


000177 


1 168 


•03500' 


016402 


004714* 


1169 


•03504* 


062702 


000004 


1170 


003510' 


010707 




1171 








1172 








1173 


003512' 


012700 


003772' 


1174 


•03516' 


016401 


004710* 


1175 


003522* 


012702 


000004 


1 176 


903526* 


012763 


00010<) 


1177 


•03534' 


012763 


000177 


1 178 


•03542' 


0B0167 


000456 


1179 








1180 








1191 


0<)3S46" 


008405 





000004 

000006 



MACY11 
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ERRORS i 


> BEGIN 


JREC TIMED OUT 




TST 


RCT0R4 






BEO 


IS 






CLR 


R4 






BR 


2S 




1$: 


MOV 


12, R4 




2$: 


DEC 


RCTOR4(R4) 






CLR 


RCVT0(R4) 


jRESET RETRY COUNT 


3$: 


JMP 


8RECRTNCR4) 


; ERROR RTN 


48: 


MOV 


CURLIN(R4),Rl 


; GET ADDR OF CUR LINE 




DECB 


20(R1) 


;DEC ERROR COUNT TO CORRECT FOR 








jINSUING INC 




DEC 


LO0P(R4) 


j CORRECT FOR LATER CALLING THIS 




BP 


31 


;RETURN 


t SUBROUTINE TO 


TRANSMIT DATA 




;CALLFD 


WITH A 


JSR PC » TM T 





; AFTER SETTING LOCATIONS TXADR1 (Rl ) , TXADR2CR4), TXCNT1 C R4 ) , TXCNT2 ( R4 ) , 
;VCTSAV(R4). DVASAVCR4) , SUBROUTINE CTS MUST BE CALLED FIRST. 
; RETURNS ON ERROR, RETURNS 2 BYTES PAST NORMAL RETURN 
;IF NO ERROR 

TMTI 



MOV 


(SP)t»TMTRET(R4) 


;SAVE RTN ADDRESS 


CLR 


TMTD0N(R4) 


; INITIALIZE FLAG 


MOV 


VCTSAV(R4),R1 


; GET REC VECTOR ADDRESS 


ADD 


14, Rl 


; MAKE IT TMT VECTOR 


MOV 


tTBTINT, (Rl) 


j MOVE IN INT ROUTINE ADDRESS 


ADD 


R4,(RD* 


jCORRECT FOR WHICH LINE 


MOVB 


BR t , ( Rl ) 


jMOV IN PRIORITY LEVEL 


CLR 


AB0RT(R4) 


;CLEAP TIME OUT ABORT FLAG 


MOV 


•5,TSYNCT(R4) 


; SEND FIVE SYN CHARACTERS 


MOV 


DVASAV(R4),R3 


j GET DEVICE ADDRESS 


TST 


FDFLAG(R4) 


I ARE WE FULL DUPLEX? 


BEU 


2$ 


; BR IF NOT, ELSE 


BPL 


IS 


;SKIP IF MASTER 


MOV 


1177777, TSYNCT(R4) ; MAKE TMT WAIT FOR A REC ' 


MOV 


I 100,4(R3) 


jSET TMT INT ENABLE 


MOV 


1177, 6(R3) 


;SEND A KILL CHAP 


MOV 


TMTRET(R4),R2 


jGET BAD RET ADDR 


AOD 


M,R2 


• MAKE IT THE FULL DUPLEX RETURN 


MOV 


R2,R7 


; AND RETURN 


MOV 


•TXTO,R0 


JTIME OUT RETURN ADDR 


MOV 


TMTTIM(R4),F1 


;HOW LONG TO WAIT 


MOV 


14, P2 


fSHOW ITS TRANSMITTER 


MOV 


1100, 4(R3) 


;SET TMT INT ENABLE 


MOV 


•177,6(R3) 


;SEND A FILL CHAR 


JMP 


TIMKEP 


;EXIT TO TIMKEP AND WAIT 



i TMT INTERRUPT ROUTINE 
T*TINT; BR IS 
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SEQ 015S 



1182 


•03550* 


01 0446 








R4, •( SP) 




•SAVE R4 


1163 


003552' 


010346 






MftV 


R3 , • ( ) 




■SAVE R3 


1184 


#03554* 


01 2704 


000002 




MOW 






';Sn TO LINE 1 


1 1 85 


903560' 


000403 








21* "* 






1 1 86 


•03562' 


010446 






HrtU 


P4 , • ( SP J 




■SAVE R4 


1187 


•03564' 


010346 








R 3 , - ( SP ) 




■SAVE R3 


1 1 88 


#03566' 


005004 






CLR 






•SET TO LINE 


1189 


•03570' 


005764 


004640* 


2fi S 




ROUP I f K ^ / 




•GIVE UP? 


1190 


•03574' 


1 00417 






BMI 






•BR It YES 


1191 


003576' 


EU6403 


004602' 




MOV 


DVASAV ( R4 ) , 


P3 


; GET DVA 


1 1 92 


•03602' 


005764 


004700* 






i At" 11 




;FIRST BUFFER TMT'ED? 


1 1 93 


003606* 


001015 






BNE 






;BP IF NOT 


1191 


00361k)' 


005764 


004704' 






TXCNT2 ( R4 ) 




jSECOND BUFFER TMT'ED? 


1 1 95 


•03614' 


001 434 






BED 






•BR IF YES 


1 1 96 


•03616' 


1 17463 


004674' 000006 




MOVB 


0TXADR2 ( R4 ) 


,6(R3) f SEND NEXT BYTE 


1197 


003624' 


005264 


004674* 




INC 






;H0V ADDRESS POINTER 


1 1 98 


00 3630* 


005 364 


004 704 ' 




DEC 


T HT<1 roll 




; COUNT IT 


1 1 99 


•03634* 


01 2603 




TIEXITf 


MOV 






; RESTORE R3 


1200 


•03636' 


01 2604 






MOV 


( R6 ) ♦ , H 4 




; RESTORE R4 


1201 


003640' 


000002 






RTI 






; RETURN 


1 202 


003642' 


005764 


004724 * 


FTBUF i 


TST 


T5YNCT ( P4 ) 




; SENT ENOUGH FILL CHAPS? 


1203 


003646* 


001 407 






BEQ 


2$ 




jBR IF YES 


1 204 
















j IF NEGITIVE 


1 705 


A03650* 


1 00402 






BMI 






;SENO TILL PECINT CLEARS TSYNCT 


1206 


003652* 


005364 


004724' 




DEC 


TSYNCT(R4) 




;ELSE COUNT IT 


1207 


003656' 


1 12763 


000177 000006 


IS: 


HOVB 


1177, 6(R3) 




; SEND IF YES 


1208 


003664' 


000763 






BR 


IIEXIT 




; AND LEAVE 


1209 


•0366b' 


1 17463 


004670' 000006 


2(1 


HOVB 


•TXADRKR4) 


,*(R3> t SEND NEXT BYTE 


121 J 


P03674' 


005264 


004670' 




INC 


TXADPl (R4) 




;MOVE ADDRESS POINTER 


1211 


003700' 


005364 


004700' 




DEC 


TXCNIi (R4) 




;COUNT IT 


1212 


003704* 


600753 






BR 


IIEXIT 




; AND LEAVE 



1 21 3 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1 221 
1 222 
1223 
1224 
1225 
1226 
1277 
1228 
1229 
1230 
1231 
1232 
1 733 
1234 
1735 
1236 
1237 



003706' 
•33714' 
•03716* 
•03722' 
•03730' 
003732' 
(•03734* 

003736' 



•03746' 

003754* 
•03756* 
003762' 
003766' 



042763 
012603 
(105064 
062764 
005704 
001004 
C12604 

000004 

012604 

000004 

005004 
000174 
012704 
000174 



; ALL CHAR'S HAVE BEEN TMT'ED 



005044' 
000002 



000004 
004714' 



003754' 000000' 



003762* 000000' 



004714' 

000002 

004714' 



BIC 


1100, 4(R3) 


;KILL TMT'ER 








MOV 


(R6)+,R3 


I RESTORE R3 








CLR 


RETTAB*4(R4> 


; K ILL IMPENDING 


TIMEOUT 






ADD 


t2,TMTRET(R4) 


; MAKE IT A GOOD 


RETURN 






TST 


R4 


j LINE OR 1 








BNE 


It 


;BR IF LINE 1 








MOV 


(R6)+,R4 


; RESTORE R4 








PIRQt i 


■ 2* , BEGIN 


; RTI AND QUEUE 


UP TO CONTINUE 


AT 


2S 


MOV 


(R6)+,R4 


; RESTORE R4 








PIRQt. 


.3*. BEGIN 


; RTI AND QUEUE 


UP TO CONTINUE 


AT 


35 


CLR 


R4 


;SET TO LINF 








JMP 


•TMTRET(R4) 


j RETURN 








MOV 


• 2, R4 


JSET TO LINE 1 








JMP 


•THTRETCR4) 


I RETURN 









•03772' 012764 177777 004640' 



JROUTINE IF TRANSMIT TIMES OUT 
TXTOJ MOV f 177777, ABORTtR*) 



;TELL INT ROUTINES TO GIVE UP 
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174034 
174033 
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NLAA .P) 1 






1238 


004000' 


016467 


004602' 


1 739 


004006' 


062767 


000004 


1 740 


004014* 


017757 


174030 


1241 


•04022* 


005077 


174027 


1212 


•04026' 


016401 


004644' 


1243 


004032' 


1 1 1 102 




1244 


•04034' 


042702 


177760 


1245 


004040' 


062702 


005000 


1246 


004044* 


010267 


174004 


1247 


•04050' 


035264 


004770' 


1248 








1249 


•04054* 


104404 


000000* 


1 250 










L'34362* 


3357b7 


aec?94 


1252 


004064* 


001402 




1253 


004066' 


•05004 




1254 


•04070' 


000402 




1 255 


00407 2' 


012704 


000002 


1256 


•04076* 


005364 


004770' 


1 257 


•04102' 


000174 


004714' 


1 258 








1259 








1260 








1261 








1262 








1263 








1264 








1765 


•04106' 


012664 


004730' 


1266 


•04112* 


016401 


004606' 


1267 


•04116* 


012711 


004154' 


1268 


004122' 


060421 




1269 


004124* 


1 1671 1 


173662 


1270 


•04130' 


032774 


020000 


1271 


004136' 


001402 




1272 


i»04140' 


016407 


004730' 


1773 


004144' 


012774 


000006 


1274 


•04152* 






1275 


004152' 


104400 




1 276 








1277 


•04154* 


000403 




1278 








1279 


•04156' 


000004 


004172' 


1280 








1281 


•04164' 






1282 








1283 


•04164' 


000004 


004200' 


1284 








1285 


004172' 


012704 


•00002 


1286 


004176* 


000401 




1287 


004200' 


005004 




1288 


004202' 


032774 


020000 


1289 


•04210' 


001755 




1290 


•04212' 


042774 


000040 


1291 


• 0422*1' 


01 6407 


004730* 


1 792 









MOV 

ADD 

MOV 

CLR 

MOV 

MOVB 

BIC 

ADD 

HOV 

INC 



DVASAV(R4),CSRA 
•4,CSPA 
8CSRA,ACSR 
•CSRA 

CURLIN(P4),R1 
(R1),R2 
1177760, R2 
•5000, R2 
R2, ASTAT 
TXTOP4(P4) 



;GET ADDP OF STATUS 
; MAKE IT TMT C5R 
JSAVE STATUS 

jKILL TRANSMISSION AND INT 

1 GET ADDP OF CUR LINE 

;GET VALUE 

; LEAVE ONLY LINE ( 

; INDICATE TMT TIMEOUT 

;SET UP FOR ERROR CALL 

jSEE NOTE 1 IN FRONT OF LISTING 



ERRORS, BEGIN 



; TMT TIMEOUT 



it: 
2SI 



TST 

BED 

CLR 

BR 

HOV 

DEC 

JMP 



TXT0P4 
19 
R4 
2« 

12, P4 

TXTOR4CR4) 
8TMTRET(R4) 



; BAD RETURN 



;SUB GETS CLEAR TO SEND FOR LINE IN DVASAVCP4) AND VCTSAV(R4) 



CTS1 HOV 
HOV 
HOV 
ADD 
MOVB 
BIT 
BEQ 
MOV 

RTSSETl MOV 
NULL! 

EXITS 
;INT POUTINE 
CTSINT: BR 



(R6)+,CTSRET(R4) ;SAVE RET ADDRESS 

VCTSAV(P4),R1 ; GET VECTOR ADDR 
#CTSlNT,(Pl) ;MOV IN INT ROUTINE ADDR 

R4,(R1)+ ;SHOHS WHICH LINF 

BR1,(R1) ; GET BR1 LEVEL 

120000. »DVASAVCR4) »IS CLEAR TO SEND UP? 
RTSSET I BR IF NOT 

CTSRET(P4) , R7 ; RETURN 
I6,»DVASAV(R4) ;SET REQ TO SEND 



;EXIT TO MONITOR. MODULE WAIT FOP INTERUPT, 



PIRQt , 



It 

2t, BEGIN 



; DIFFERENT PIRQ'S 

; RTI AND QUEUE UP TO CONTINUE AT 2S 



PIRQt, 3$, BEGIN 



; RTI AND QUEUE UP TO CONTINUE AT 3S 



3tl 
46: 



MOV 12, R4 ;SET UP FOR LINE 1 

BR 4S 

CLP R4 ;SET UP FOR LINE 

BIT 120000, a DVASAV(R4) ! IS CLEAR TO SEND SET? 

BEQ RTSSET ;G0 TRY AGAIN IF NOT 

BIC I40,»DVAS»V(R4) jDISABLE DATA SFT CHG INT'S 

MOV CTSRET(P4),P7 ; RETURN 
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SEQ 0153 



1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1 320 
1 321 
1322 
1323 
1324 
1325 
1326 
1327 
1 328 
1 329 
1330 
1331 
1332 
1 333 
1334 
1335 
1 336 
1337 
1 338 
1339 
1340 
1 341 
1342 
1343 
1 344 
1 345 
1346 
1347 
1348 
1349 



004224' 060402 

004226' 010162 

004232' 067762 

004240* 010462 005050* 

004244* 010062 005040* 



005030* 

000000G 005030' 



0042S0* 022767 000002 000360 
004256* 001410 
004260* 005704 
00426?* 001402 
004264' 005004 
004266' 000402 
004270' 012704 000002 
004274' 000167 174350 



004300' 012702 005040' 
004304' 005722 
004306' 001026 
004310' 020227 005050' 
004314' 001373 
004316' 005767 000424 
004322' 031402 
004324' 000167 000064 

004330' 005767 000410 
S44334' S3! 401 
404336' 104400 



004344* 012767 
004346* 104407 
004352* 104407 
004356* 005067 
004362* 000746 

004364' 005742 
f04366' 027762 
004374* 003002 
004376* 005722 
004400* 000743 



000001 000376 
000000' 
000000' 
000362 



000000G 177770 



; ALL ROUTINES COME HERE WHILE WAITING FOP I/O 
IROUTIME FITHEP KICKS OFF SECOND LINE, NOTIFYS 
{ROUTINES OF TIMEOUTS, OK JUST DOES BREAKS. 
;I/0 ROUTINES THAT FIMISK UP BEFORE TIMEOUT VALUE 
{MUST CLEAR LOCATION RETTAB(R4) +0 IF RECEIVER OR r4 
;IF TMT. 

{CALLED WITH A JMP TO TINKEP AFTER LOADING 
; R0 m WHERE TO RETURN IF Tl"E OUT 
; Rl ■ HOW LONG TO WAIT (IN SECONDS) 

J R2 * IF ITS A REC TTMEING OR 4 ir ITS A TMT WAIT 
J R4 * FOR ACTIVE LINE 0, 2 FOR ACTIVE LINE 1 



{FIGURE OUT WHICH TABLE ENTRY 
; STORE HOW LONG TO WAIT 
) ; ADD PRESENT TIME 

;SAVE WHICH ACTIVE LINE 
; WHERE TO RET TO, PLUS 
;IF THIS ENTRY IN TABLE IS 
;0 THEN NO TIMEOUT WILL 
{OCCUR FOR THIS ENTRY SET 
j ARE 2 LINES GOING? 
I BR IF YES 
; ARE WE LINE 0? 
; BR IF YES 
; IF NO HAKE IT 

j WE HERE SO NOW 00 1 
j GO DO OTHER LINE 



; GET ADDR OF TIME STATUSES 
; AN Y WAIT GOING ON? 
{BR ir YES 

; ARE WE DONE LOOKING 
; BR BACK IF NO 
j TIME FOR END OF PASS 
{BR IF NO 

{GO REPORT END OF PASS 

; ARE WE ALREADY IN A BREAK? 
{3R IF SO 

{exit to monitor. module wait for interupt. 

;show were doing break 
; temporary return to monitor.... 
;then continue at next instruction. 
;show were back 



{MOVE R2 BACK 

JIS TIME UP? 

; BR IF YES 

;BUMP R2 BACK AGAIN 

jGO CHECK OTHERS 



TIHKEpi 


ADD 


R4.R2 




MOV 


Rl , TIMTABC P2 ) 




ADD 


• TIME,TIMTAB(I 










MOV 


R0, RETTABCR2) 




CMP 


(2,LINACT 




BEO 


TIMCHK 




TST 


R4 




BEO 


IS 




CLR 


R4 








18: 


MOV 


12, R4 


2(1 

; 


JMP 


GETNXT 


; 

TIHCHKI 


MOV 


*RETTAB,R2 


1$: 


TST 


(R2) + 




BNE 


4$ 


lit: 


CMP 


R2,(RETTA8+10 




BNE 


IS 




TST 


PASTIM 




BEQ 


2S 




JMP 


EPASS 


2$: 


TST 


BRKFLG 




BEQ 


3$ 




EXIT$ 




; 

3$: 


MOV 


f 1, BRKFLG 




BREAKS. 


r BEGIN 




BREAKS, 


> BEGIN 




CLR 


BRKFLG 




BR 


TIHCHK 


it: 


TST 


-CR2) 




CMP 


•TIME,-10(R2) 




BGT 


5S 




TST 


CR2 ) ♦ 




BP 


US 
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1 350 


















1351 


BJ4402' 


P16204 


000010 




58: 


MOV 


10(R2),R4 


;SET R4 CORRECTLY FOR WHICH LINE 


1 352 


004406' 


01 1203 








MOV 


(R2),R3 


;SAVE RETURN 


1 353 


004410* 


005012 








CLR 


(R2) 


;CLEAR THIS ENTRY 


1 354 


004412* 


010307 








MOV 


R3,R7 


;JMP TO TIME OUT ROUTINE 


1 355 
1356 










J 








1 357 


















1358 










J EPASS 


DOES END OF PASS CALL , 


AND PRINTS ERR SUMMARY 


1359 










JIF LOCATION REPORT IS NOT 




1360 










; 








1361 


00441 4* 


P05767 


173544 




EPASS: 


TST 


REPORT 


>D0 ERR SUM OR NOT 


1 362 


004420* 


001461 








BEO 


58 


; BR IF NO 


1363 


004422* 


005267 


000146 






INC 


MSGCNT 


;COUNT A PASS 


1 364 


004426* 


026767 


000142 


173530 




CMP 


MSGCNT, REPORT 


{TIME FOR A MSG? 


1 365 


004434* 


001053 








BNE 


58 


{IF NOT EVEN 8, SKIP MSG 


1366 


004436* 


005067 


000132 






CLR 


MSGCNT 




1367 


004442' 


012700 


000212' 






MOV 


(PHYTAB,R0 


{FIND WHICH LINES ARE RUNNING 


1368 


004446' 


012701 


011220* 






MOV 


*3UM1*4,R1 


;POINTS TO MSG 


1369 


004452* 


105710 






is: 


TSTB 


(R0) 


lIS LINE IN USE? 


1370 


004454* 


100403 








BMI 


28 


;RR IF YES 


1371 


904456* 


012711 


054130 






NOV 


854130, (Rl) 


{PUT XX IN * OF ERRS 


1372 


004462' 


000427 








BR 


48 




1373 


004464* 


1 16002 


000040 




2$: 


MOVB 


32.(R0),R2 


{ GET ( OF ERRS 


1374 


004470' 


1 05060 


000040 






CLRB 


32. (R0) 


j RESET ERR COUNT 


1375 


004474' 


022702 


000077 






CMP 


177, R2 


; ANY GOOD MSGS 


1376 


004500' 


002416 








BLT 


38 


{BR IF NO 


1377 


004502' 


010203 








MOV 


R2,P3 


jPUT IN MSG 


1378 


004504' 


042703 


177770 






BIC 


1177770, R3 


; LEAVE ONLY LOW DIGIT 


1379 


004510' 


062703 


000060 






ADD 


(60, R3 ! MAKE 


IT ASCII 


1380 


004514* 


110361 


000001 






nOVB 


R3,l(Si) 


{STORE IT AWAY 


1381 


004520* 


006202 








ASR 


R2 


{GET NEXT DIGIT 


1382 


004522* 


006202 








ASR 


R2 




1383 


004524* 


006202 








ASR 


R2 




1384 


004526' 


062702 


000060 






ADD 


(60, R2 


; MAKE IT ASCII 


1385 


004532' 


1 10211 








MOVB 


R2,(R1) {PUT 


IT IN MSG 


1 386 


B04534* 


000402 








nn 


4* 




1387 


004536* 


012711 


042102 




3s: 


MOV 


(42102, (Rl) 


;PUT IN AN *BD* FOR BAD 


1388 


004542' 


005200 






4$: 


INC 


R0 


jBUMP LINE POINTER 


1389 


004544* 


062701 


000010 






ADD 


(10, Rl 


; POINT TO NXT MSG 


1390 


004550' 


020027 


000232' 






CMP 


R0,(PHYTAB+20 


{DONE 


1391 


004554* 


001336 








BNE 


IS 


jGO DO MORE 


1392 


004556* 


104411 


004570' 


000000* 




MSGNS, 


MSUM, BEGIN 


{ASCII MESSAGE CALL WITH COMMON HEADER 


1393 


















1394 


















1395 


004S64* 








56: 








1396 


004564' 


1 04402 


000000* 






ENDPS8 


i BEGIN 


{SIGNAL END OF PASS. CONTINUE AT RESTRT 


1397 


















1398 


004570* 


01 1130* 






MSUM: 


SUM 






1399 


004572* 


1 77777 








-1 






1400 


















1401 


004574* 


900000 






msGcnt: 







{COUNTS END PASSES FOR MESSAGE CALL 


1402 


004576* 


000000 






MASK : 







{USFD FOP BIC'ING IN LOOPS 


1403 


004600' 


000000 






NXTLINI 







; ADR OF NEXT LIN 


1404 


004602* 


000000 






DVASAVS 







; HOLDS OVA FOR ACTIVE L«0 


1405 


004604* 


000000 













•HOLDS DVA FOR ACTIVE I,t 1 
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1406 


004606' 


090000 


VCTSAVI 





HOLDS VCT FOR ACTIVE Li0 


1 407 


004610' 


000000 




iHOLDS VECTOR FOR ACTIVE L«l 


1 406 


004612' 


0i»5060' 


AMSGBFJ 


MSGBF0 


ADDRESS OF MSG BUFFER 


1409 


004614' 


007100' 




HSGBF1 


ADDRESS OF MSG BUFFER 1 


1410 


004616* 


090000 


HECADRt 





CURRENT REC WORD POINTER 


1411 


004620' 


£00000 







CURRENT REC WORD POINTER 1 


14)2 


004622' 


000000 


RECCNTJ 





REC BYTE COUNT FOR 


1413 


904624' 


000000 







PEC BYTE COUNT FOB 1 


1414 


004626 " 


000000 


PECTIN: 





TEMP HOLDS TIME OUT VALUE FOP A REC 


1415 


004630' 


000000 




; SAME BUT FOR LINE 1 


1416 


004632' 


000000 


SYNCNTl 





COUNTS HOW MANY SYN CHARACTERS REC 


1417 


004634' 


01*0000 







SHOULD WAIT FOR. 


1418 


004636' 


000000 


LINACT J 





HOLD THE NUMBER OF LINES RUNNING, 0-2 


1419 


004640' 


000000 


ABORTi 





ABORT FLAG FOR L»0 


1420 


004642' 


000000 







ABORT FLAG FOR L4 1 


1421 


004644* 


000000 


CURLIN: 





POINTS TO STATUS BYTE FOR CURRENT L«0 


1 422 


004646' 


000000 







POINTS TO STATUS BYTE FOR CURRENT Hi 


1423 


004650' 


002654' 


PECDi 


RECOH 


WHERE TO PIRQ AFTER REC DONE 


1424 


004652' 


002660* 




RECDN*4 




1425 


004654' 


000000 


EPRWD j 





HOLDS ERR WOPOS TEMPORARILY 


1426 


004656' 


000000 







HOLDS ERR WORDS TEMPORARILY 


1427 


004660* 


000000 


LOOP: 





HOLDS LOOP COUNT FOR LINE t 


1 429 


004662' 


030000 







HOLDS LOOP COUNT FOR LINE • 1 


1 429 


604664' 


030000 


RF.CRTNJ 





■HOLDS RETURN ADDR FOR LINE 10 


14 3.? 


004666* 


000000 







HOLDS RETURN ADDR FOR LINE 11 


1431 


004670* 


000000 


TXADR1 : 





HOLDS 1ST ADDR TO TMT FROM, LINE 


1432 


004672* 


000000 







SANK FOR LINE 1 


143 3 


004674* 


000000 


TXADR2I 





HOLDS 2ND ADDR TO TMT FROM, LINE 


1434 


004676* 


000000 







SAME FOR LINE 1 


1 435 


004700' 


000000 


TXCNTH 





HOLDS 1ST TMT COUNT FOP LINE 


1 436 


004702* 


000000 




: SAME FOR LINE 1 


1437 


004704* 


000000 


TXCNT2I 


jHOLDS 2ND TMT COUNT FOR LINE 


1438 


004706* 


000000 




;SAMC FOR LINE 1 


1 439 


004710* 


000000 


TMTTIMI 


jHOLDS TIME OUT TIME FOR LINE 


1440 


004712' 


000000 




; SAME FOR LINE 1 


1 441 


004714* 


000000 


tmtpeti 





HOLDS RTN ADDR FOR TMT. LINE 


1442 


004716* 


000000 







SAME FOR LINE 1 


1443 


004720' 


000000 


THTDON I 


J FLAG FOR WHEN A TMT IS DONE 


1 444 


004722' 


000000 




;SAME FOR OTHER LINE 


1445 


004724* 


000000 


TSYNCTl 


;HOLDS » OF SYN CHAP TO SEND, LINE 


1 446 


004726' 


000000 




(SAME FOR LINE 1 


1447 


004730' 


000000 


CTSRETt 


jHOLDS RETURN ADDR FOR CTS 


1 448 


004732" 


000000 




; SAME FOR LINE 1 


1449 


•04734' 


000000 


FDFLAGt 





IF HALF DUPLEX, 1 IF FULL 


1 450 


004736* 


000000 









1451 


004740' 


000000 


RCVTOl 


;COUHTS REC TIME OUT RETRYS 


1 452 


004742* 


000000 









1 453 


004744* 


000000 


BRKFLGt 


;IS A ONE DURING BREAKS 


1 454 


004746* 


000000 


pastim: 


jHAS A 1 WHEN ITS TIME FOR END OF PASS 


1 455 


004750' 


000000 


DR0PR4 | 


(EXIT FLAGS 




1456 


004752* 


£00000 









1457 


004754* 


000000 


DTERR4I 







1458 


004756' 


000000 









1459 


004760" 


000000 


CRCR4: 







1460 


#04762* 


000000 









1461 


004764' 


000000 


RCT0R4J 
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1 462 


•04766' 


000030 















1463 


004770' 


000000 






TXT0R4I 









1 464 


004772* 


000000 















1465 


004774' 


000000 






FDBKR4I 









1 466 


004776' 


000000 















1 467 


005000' 


000000 






CHKR4: 









1468 


005002* 


000000 















1 469 


















1 470 










; 








1471 


















1472 










;R1 HAS 


ADDR OR 


VECTOR 




1473 










;R0 has 


LINE • 


IN LOW BITS, RETURNS WITH ADDR OR VECTOR IN Rl 


1474 


e05004* 








getadp: 








14/5 


005004' 


010046 








MOV 


H0,-lRb) 


j SAVE R0 


1476 


005006* 


042700 


177760 






BIC 


1177760, 


R0 ;SAVE ONLY LINE 1 


1 477 


005012' 


001404 






III 


BEQ 


2t 


;DONE 


1478 


005014' 


062701 


000010 






ADD 


tl0,Rl 


;BUMP TO NEXT LINE 


1479 


005020* 


005 300 








DEC 


R0 


; ADDED ENOUGH TIMES? 


1480 


005022' 


000773 








BR 


IS 


;G0 BACK 


1481 


005024' 


012600 






28: 


MOV 


(R6)+,RP 


; RESTORE R0 


1482 


005026' 


000207 








RTS 


PC 


; RETURN WITH DVA IN Rl 


1483 










J 








1484 


















14R5 


005030' 


000000 






TIMTABI 







; WHEN TO TIME OUT FOR REC , LINF 


1486 


005032' 


000000 













; WHEN TO TIME OUT FOR RECLINE 1 


1487 


005034' 


000000 













; WHEN TO TIME OUT FOR TXT, LINE 


1488 


0050 36' 


000000 













j WHEN TO TIME OUT FO TXT, LINE 1 


1489 


005040* 


000000 






RETTAB t 







J WHERE TO RETURN FOR REC LINE Id 


1490 


005042' 


000000 













] WHERE TO RETURN FOR REC LINE 1 


1491 


005044' 


000000 













; WHERE TO RETURN FOR TXT LINE 


1492 


005046* 


000000 













; WHERE TO RETURN FOR TXT LINE 1 


1493 


















1494 


035050' 


000000 






R4TAB: 







; HOLD R4 FOR RETURNS 


1495 


035052' 


000000 















1496 


005054' 


000000 















1497 


•0505b' 


000000 















1498 


















1499 


















1500 


005060* 


001010 






MSGBF0I 


• BLKW 


520. 


;REC BUFFER FOp LINE 


1501 


007100' 


001010 






MSGBF1 1 


.BLKW 


520. 


;REC BUFFER FOR LINE 1 


1502 


011120" 


177777 






fill: 


177777 




;4 CHARACTERS OF FILLFR BYTES 


1503 


011122' 


177777 








177777 






1504 


011124' 


011416* 






ADROPl 


HDROP 






1505 


011126' 


177777 








-1 






1506 










• EVEN 








1507 


011 130' 


005015 


044523 


041516 


SUMI 


.ASCII 


<15><1 2> 


'SINCE LAST MSG PER llNh, IN OCTAL *<15><12> 


1508 


011136* 


020105 


040514 


052123 










1509 


011144' 


046440 


043523 


050.140 










1510 


011152* 


051105 


046040 


047111 










1511 


011160' 


0261 05 


044440 


020116 










1512 


011166' 


041517 


040524 


0201 14 










1513 


0H174' 


005015 














1514 


01 1 17b' 


f 44514 


042516 


021440 




.ASCII 


'LINF « 


FRRS'<15><12> 


1515 


011204' 


920040 


051105 


051522 










1516 


011212' 


005015 














151? 


01 1214* 


030060 


026455 


010060 


St'Mi : 


.ASCII 


•00— 00'<15><12> 
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1518 


01 1 222 * 


00501 5 














1519 


•1 1224' 


030460 


026455 


10060 




ASCII 




• ad *< 1 I 

— 91V > 13« 


1520 


011232' 


00501 5 










1521 


*1 1234' 


031060 


026455 


030060 




.ASCII 


02* 


-*0 # <15><12> 


1522 


01 1 242 * 


005015 










1523 


01 1244* 


031460 


0264S5 


03M060 




. A 5C 1 1 


03* 




1524 


01 1 252' 


00501 5 












1525 


01 1 254' 


032060 


026455 


030D6H 




•ASCII 


04* 


•f*ft <15>*<12* 


1526 


911262' 


005815 












1527 


01 1264" 


032463 


026455 


030060 




.ASCII 


05* 


m t*& *St5**12* 


1528 


91 1 272 * 


005015 














1529 


Dl 1274' 


033060 


026455 


030060 




.ASCII 


06- 




1530 


01 1 302" 


005015 












1 53l 


01 i 304' 


033460 


026455 


030060 




• ABC 






15 32 


011312' 


005015 














1533 


011 314* 


030061 


026455 


030060 




ASCI I 


10" 


"BP ^ 1 4' 


1534 


01 1322* 


005015 














1535 


01 1 324' 


030461 


02b455 


030060 






•ti- 
ll" 




15 36 


01 1 332* 


00501 5 














1537 


01 1 334" 


031061 


026455 


030060 




- 


12- 




1538 


01 1342' 


00501 5 














15 39 


011341' 


031461 


026455 


030060 




* 


# 




1540 


011352' 


005015 














1541 


01 1354' 


032061 


026455 


030060 




.ASCII 


'14- 


-00'<15><12> 


1542 


01 1 362" 


00501 5 














1513 


01 1 364" 


032461 


026455 


030060 




ASCI I 

* 




"C(0 # < 1 5**1 2* 


1544 


01 1 372 * 


00501 5 














1 545 


01 1 374* 


033061 


026455 


030060 




. ASC I I 


'16- 


-00"<15><12> 


1 546 


01 1 402 * 


00501 5 














1547 


01 1404' 


033461 


026455 


030060 




. ASC I I 


'17- 


-00'<15><12> 


1548 


011412' 


005015 














15 49 
1550 


01 1414' 


000 








.BYTE 







1551 




011416* 








.EVEN 






155? 










; 








1553 


011416' 


044514 


042516 


053440 


morop: 


.ASCIZ 


•LINF WAS DROPPED' 


1554 


01 1424' 


B51501 


042040 


047522 










1555 


01 1432' 


050120 


042105 


000 










1556 




000001 






.END 
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CROSS 


REFERENCE 


TABLE — 


USER ; 


SYMBOLS 










ABORT 


004640R 




889* 


914* 


939 


1113» 


1159* 


1189 


1237* 


1419* 


ACSR 


900052R 




477# 


997* 


1117* 


1240* 










ADDP 


000006R 




456* 


651 


705 












ADROP 


011124R 




790 


1504* 














AMSGBF 


004612R 




748 


817 


843 


1053 


1408* 








ASB 


000056R 




4801 
















ASTAT 


000054R 




479« 


1003* 


1004* 


1011* 


1012* 


1013* 


1058* 


1095» 


AWAS 


000060R 




4811 
















BDCNV a 


*•**»» 


G 


11 
















BEGIN 


000000R 




453*. 


632 


633 


661 


662 


675 


727 


790 








1016 


1044 


1045 


1069 


1101 


1127 


1223 


1227 








1392 


1396 














BIT0 = 


000001 




4901 
















BID = 


000002 




4901 
















BIT10 * 


002001 




490* 
















BITU i 


004000 




490* 
















BIT12 * 


010000 




490* 
















BIT13 = 


020000 




490* 
















BIT14 = 


040000 




490* 
















BIT15 » 


1 00000 




490* 
















BIT2 = 


900004 




490* 
















8IT3 = 


080010 




490* 
















BIT4 * 


000020 




490* 
















BITS * 


000040 




490* 
















BIT6 = 


000100 




490* 
















BIT7 x 


000200 




490* 
















BIT8 « 


000400 




490* 
















BIT9 * 


001000 




490* 
















BREAKS 3 


104407 




490* 


661 


662 


871 


872 


1044 


1045 


1340 


BPKFLG 


•04744R 




694* 


731 


1335 


1339» 


1342* 


1453* 






BP1 


00001 2R 




458* 


913 


1159 


1 269 










BP2 


»0001 3R 




459* 
















CDATAS* 


1 04414 




490* 
















CER 


003142R 




1075 


1077 


1093* 












CHKP4 


005000R 




690* 


691* 


1043* 


1046 


1051* 


1467* 






CKMSG * 




G 


490* 


1041 


1068 












CRC*SG* 


•••••• 


G 


490* 


1074 


1076 












CRCR4 


004760R 




682* 


683* 


1099* 


1103 


1108* 


1459* 






CSRA 


000050R 




475* 


996* 


1119* 


1238* 


1239* 


1240 


1241* 




CTS 


004106R 




762 


806 


842 


1265* 










CTSINT 


0041S4R 




1267 


1 277* 














CTSPET 


004730R 




1265* 


1272 


1291 


1447* 










CURMN 


004644R 




700* 


781 


830 


890 


998 


1061 


1087 


1096 


DATAER 


002576R 




1002 


1011* 














DATCKt » 


1 04417 




490* 
















DATERSi 


104405 




490* 
















DERP 


001264R 




765 


777* 














DEVSET* 


»••••* 


G 


491* 


634 














DONF 


000760R 




698 


719* 














DROP 


081 330R 




784 


788* 


833 


895 










DP0PR4 


004750R 




678* 


679* 


789* 


791 


796* 


1455* 






DTEPP4 


0047S4R 




640* 


681* 


1014* 


1018 


1023* 


1457* 






DVASAV 


004602R 




707* 


766* 


771 


777* 


812* 


829* 


883* 


894* 








1038* 


1117 


1118* 


1119 


1161 


1191 


1238 


1270 


DV101 


G00014R 




460* 


630 














ECOUNT 


*B0252R 




560* 


1 0SO* 















871 
1249 



872 
1279 



979 
1283 



991 
1340 



1006 
1341 



1421* 



918* 
1273* 



925* 
1288 



938 
1290* 



984* 
1404* 
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ENDPSt* 

ENDS a 

EPASS 

EPRCNT 

ERRLVL 

ERPNS x 

ERRORS * 

FPRTAB 

ERRWD 

EXIT* « 

FDBKR4 

FDFLAG 

FDRCDN 

FDTO 

FERR 

FFRRt 

FILL 

FTBUF 

GERR 

GETADP 

GETNXT 

GETPAIt 

GWBUF$x 

HERP 

INIT 

JERP 

LIN ACT 

LNDONE 

LOOP 

LPCNT 

MAP22$x 

MASK 

MD x 

MDATAB 

MDMTAB 

MDROP 

MOONAM 

MODSP 

MSG x 

NSGBF0 

MSGBF 1 

MSGCNT 

MSGHEDs 

MSGNS = 

MSGSIZ* 

MSGSS x 

MSGS = 

MSUM 

NULL 

NXTLIN 

OACNV « 

ONEPEC 

ONETMT 

OPEN x 



104402 
10440) 
•04 414R 

#00030R 

•001 72R 

104410 

1 04404 

•00232R 

00465 1R 

104400 

004774R 

004734R 

03I744R 

•02I06R 

0J1300R 

•01302R 

0U120R 

003642R 

001540R 

005004R 

000650R 

104413 

104412 

001546R 

•00022R 

•02040R 

004636R 

•0I240R 

004660R 

0001 66R 

104415 

004576R 

*••*•• GX 

000272R 

0003 12R 

01 1416R 

•00000R 

000164R 

»••••• G 

H05C60R 

007100R 

004574R 

•••»*» G 

10441 1 

**»**# G 

104416 

104406 

034570R 

004I52R 

0046PVR 

»•»»•• G 

901 1 34R 

E0M56R 

00000(1 



PASCNT 000026R 



490* 
490* 
733 
4671 
499* 
4<)0I 
4901 
5411 
943* 
4901 
686* 
738* 
846 
858 
754 
779 
761 
1193 
811 
706 
697» 
4901 
490t 
622 
4641 
847 
696* 
770* 
712* 
4971 
4901 
635* 
715 
5841 
6111 
1504 
4541 
465 
490t 
1408 
1409 
658* 
490t 
4901 
4901 
4901 
490* 
1392 
1274* 
695» 
II 
501 
502 
455 
481 
466« 



139b 
632 
1133 

783 

101*6 

956 
736 
689* 
742* 
668* 
8991 
7801 
7811 
607 
12021 
829t 
709 
704 



8301 

856 
71 J » 
797 
767* 

768 

639 



1553* 

488t 
1054 
1500* 
1501* 
1363* 
757 
790 
749 



697 

7551 
8131 
461 
4901 



675 
1361t 


727 










832 


892 


1115 








1016 


1101 


1127 


1249 






960* 
865 
870* 
841* 

879 


961* 
1008 
673 
916 
893 


997 
1275 
878* 
951 


1001 
1337 
14651 
1162 


1012 
14491 


1425* 


854 


15021 










1474f 
774 


1323 










6881 

719 

826 

768 

824 


899 

770» 

884 

823* 

881 


1316 
824 


14181 
880* 


881 


1141* 


641 


645 


647* 


14021 






1364 
803 

1392 
758 


1366* 
849 

804 


14014 
818 


844 


851 


1073 


699 


702* 


14031 








786 












468 


469 


470 


471 


472 


473 
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NLAA. P1 1 


CROSS 


REFERFNCE 


TABLE -- 


USER SYMBOLS 




PASTIM 


004746R 


693* 


729* 


1331 


1454* 




PHYTAB 


0002 12R 


5191 


636 


643 


656 


695 


PIRQS » 


0000*4 


4901 


979 


991 


1223 


1227 


POPSP x 


005776 


490* 










POPSP2« 


022676 


4901 










PP 


001036R 


716 


738* 








PPFD 


001570R 


741 


839* 








PPFOl 


001610R 


8431 


882 








PPHDM 


001 372R 


744 


802* 


825 






PPHDM2 


001520R 


816 


823* 


834 






PPHDS 


00I070R 


7471 


769 








PPHDS2 


001224R 


756 


767* 


787 






PRTY = 


000000 


490* 










DPTVfl 3 




lfl»t 










PPTY1 = 


00004D 


490* 










PRTY2 x 


■00100 


4901 










PPTYJ x 


0001 40 


490» 










PRTY4 x 


•00200 


458 


459 


4901 






PPTY5 x 


00024.) 


4901 










PRTY6 x 


•00300 


4901 










PPTY7 x 


P00340 


4901 










PS x 


177776 


490* 










PS* « 


1 77776 


490* 










PUSH s 


£0574t> 


490* 










PUSH2 x 


024646 


490* 










PWPCNTx 


»••»*• G 


4901 


673 








QUES x 


104401 


4901 










RCTOR4 


004764R 


664* 


685* 


1125* 


1129 


1134* 


RCVTO 


W4740R 


713* 


1039* 


1114* 


1115 


1 135* 


RDTO 


003230R 


900 


922 


11131 






REC 


•02120R 


753 


821 


846 


909* 




RECADR 


004616R 


748* 


817* 


843* 


963» 


964* 


RECCNT 


004622R 


749* 


750* 


818* 


8l9» 


844* 


RECO 


M4650R 


972 


1 423* 








RECDN 


■02654R 


979 


1035* 


1423 


1424 




RECERR 


•03156R 


1059 


1096* 








RECINT 


002230R 


911 


930* 








RECPTN 


004661R 


899* 


909* 


919 


1078* 


1080 


RECTIM 


004626R 


751* 


752* 


820* 


923 


14141 


RFPORT 


•00164R 


494* 


954 


1056 


1063 


1083 


RERR 


002457R 


957 


962 


982* 






RESTRT 


0005 16R 


482 


660 


673* 






RETTAB 


•05040R 


1040* 


1079* 


1217* 


1312* 


1326 


RPIRO 


002444R 


972* 


977* 








RRET 


•03104R 


1031 


1079* 


1085 


1090 


1 109 


RSTPT 


000062R 


482* 










RTSSET 


044144R 


1271 


1 2731 


1289 






R4TAB 


00505OR 


1311* 


1 4941 








SRADR 


00005 2 R 


4761 










SPARE1 


000202R 


504* 










SPARE2 


000204R 


505* 










SPARE3 


•0020bR 


5061 










SPAPE4 


B0021OR 


507* 










SPOINT 


030024R 


4651 


617 








SPSIZ x 


000040 


1 1 


483 








SRI 


94001 tiR 


4611 


616 









697 
1279 



722 
1213 



14611 
14511 



1410* 
845* 



1136 
1093 



1429* 

1361 



NLAA DEC/X11 SYSTEM 


EXERCISER MODULE 


MACY11 


27(732) 


20-MAY- 


76 12:: 


fi'LAl ,r i ' 




CROS 


3 REFERENCE 


TABLE - 


- USER SYMBOLS 






START 


000332R 




464 


6301 










STAT 


000020R 




4631 












SUM 


011130R 




1398 


15071 










SUM1 


01 1214R 




1368 


15171 










SVR8 


S9P032R 




4SS: 












SVR1 


000034R 




469* 












SVR2 


9000 3oR 




4701 












SVR3 


000040R 




4711 












5VR4 


000042R 




472S 












SVR5 


000044R 




4731 












SVR6 


000046R 




4741 












SYNC 


9001 74R 




5001 












5YMCNT 


SS46 32R 




SS5* 


945 


958* 


1416* 






TIDONE 


003706R 




1195 


12151 










TIEXIT 


003634R 




1190 


U99t 


1208 


1212 






TIMCHK 


004300R 




721 


1317 


13261 


1343 






TIME a 


****** 


G 


490f 


1310 


1346 








TIHELN 


P00170R 




4981 


751 


752 


763 


809 


820 


TIHKEP 


004224R 




862 


926 


1178 


1308* 






TIMTAB 


04S030R 




1 309* 


1310* 


14851 








TMT 


003376R 




764 


810 


855 


1152* 






THTDON 


904720R 




864* 


868 


888* 


1153* 


1443* 




TMTINT 


003546R 




1 156 


11811 










TMTPET 


004714R 




1 152» 


1168 


1218* 


1230 


1232 


1257 


TMTTIM 


004710R 




763* 


809* 


1174 


14391 






TPX * 


000000 




4901 












TPAPX x 


000020 




4901 












TSYNCT 


C04724R 




953* 


1160* 


1165* 


1202 


1206* 


1445* 


TXADR1 


004670R 




757* 


803* 


849* 


1209 


1210* 


1431* 


TXAOP2 


034674R 




761» 


807* 


854* 


1196 


1197» 


1433* 


TXCNTl 


004700R 




758* 


759* 


804* 


605* 


•51* 


852* 


TXCNT2 


004704R 




760* 


806* 


853» 


1194 


1198* 


1437* 


TXTO 


003772R 




1173 


12371 










TXTOR4 


H04770R 




686* 


687» 


1247* 


1251 


1256* 


1463* 


VCTSAV 


004b06R 




710* 


910 


1154 


1266 


1406* 




VECTOR 


0000 10R 




4571 


708 










WAIT x 


»•*••• 


G 


4901 


659 










WASADR 


00005 4R 




4781 












XFLAG 


000005 R 




4551 












X4 


003114R 




1072 


1083* 










X5 


003124R 




1057 


1084 


1087* 


1094 






# X 


011437R 




15001 


15011 


1551* 









14411 



1211* 1435* 



000t»00 
011437 



000 
001 
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1 .REM % 

2 
3 
4 
5 
6 
7 
8 
9 
10 



11 

12 IDENTIFICATION 
14 

15 PRODUCT CODE: MA INDEC -1 1 -DXN 1 A-A-D 

16 

17 PRODUCT NAME: DECNET DEC/XU SERVICE EXERCISER MODULE 

16 

19 DATE: 21-JUN-76 

20 

21 MAINTAINER: DEC/Xll DIAGNOSTIC GROUP 

22 

23 THE INFORMATION IN THTS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

24 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

25 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

26 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR WITHIN. 
27 

28 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

29 LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 

30 TERMS OF SUCH LICENSE. 
31 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 

33 USE Op RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

34 SUPPLIED BY DIGITAL. 
35 

36 

37 COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS, 



N/AA UEl/All 

N2AA.P11 

38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
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92 
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IDENTIFICATION 



PRODUCT CODE: MAINDEC-1 1 -DXN2A-A-D 

PRODUCT NAME: DECNET DEC/X11 EXERCISER SERVICE MODULE 
DATE I 21-JUN-76 

MAINTAINER: DEC/Xll DIAGNOSTIC GROUP 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY AppEAR WITHIN, 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE Or RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 



COPYRIGHT (C) 1976 DIGITAL EQUIPMENT CORPORATION , MAYNARD, MASS, 

1. ABSTRACT 

N2A? MODULE Is A SERVICE MODULE WHICH MUST BE USED WHEN 
ANY DECNET DEC/Xll MODULE IS USED. IT MUST BE CONFIGURED 
AFTER THE LAST DECNET DEC/Xll MODULE AND IN FRONT OF THE CLOCK MODULE 
AND ALL OTHER NORMAL DEC/Xll MODULES. ITS PURPOSE IS TO PROVIDE A 
PAUSE POINT IN THE RUN TIME EXERCISER TO ALLOW ALL NODES TO GET ALL 
PHONE CONNECTIONS MADE BEFORE EXERCISING BEGINS. IT ALSO PROVIDES A 
DN11 HANDLER FOP AUTO CALL UNITS. ( NOT YET SUPPORTED) 

2. HARDWARE REQUIREMENTS 
NONE 

3. SOFTWARE REQlREMENTS 

N2A? SHOULD ONLY BE USED IN A DEC/Xll EXERCISER THAT ALSO CONTAINS 
THE N1A? MODULE* A CLOCK MODULE* AND ONE OR MORE DECNET IDEC/XU MODULES. 

4. OPERATING PROCEDURES 
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114 
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116 
117 
118 
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IF SRl HAS BIT SET TO 0, THE MODULE WILL TYPE OUT A MESSAGE 
REQUESTING THAT ALL PHONE CONNECTIONS SHOULD BE MADE. WHEN THIS MESSAGE 
IS TYPED OUT ON ALL NODES, THE OPERATORS MAY BEGIN TO DIAL ALL 
MANUAL CONNECTIONS. WHEN DONE, THE OPERATOR AT EACH NODE SHOULD 
TYPE A CARRIAGE RETURN, ALLOWING THE EXERCISING TO BEGIN. AT THIS 
POINT THE N2A? MODULE WILL DESELECT ITSELF. 

IF SRI HAS BIT SET TO 1, THE MODULE WILL ATTEMPT TO DIAL 
PHONE CONNECTIONS USING DNjl'S. DVA,VCT, AND BRl SHOULD 
BE SET TO THE LOWEST ADDRESSED DN1 1 . THE MODULE WILL TYPE A P# 
PROMT REQUESTING THE FIRST PHONE NUMBER. IT WILL ACCEPT ONLY DIGITS, 
DO NOT TYPE -'S AS PART OF THE NUMBER . TYPE A CARRIAGE RETURN AT THE 
END OF THE PHONE NUMBER AND THEN THE MODULE WILL ATTEMPT THE PHONE CALL. 
THE MODULE WILL TYPE ANOTHER Pi WHEN IT HAS SUCCESSFULLY DIALED 
THE NUMBER, ALLOWING FOR ANY NUMBER OF DNU'S TO BE USED. 
A CARRIAGE RETURN WITH NO NUMBER INDICATES YOU ARE DONE USING DNll'S 
AND THE MODULE SHOULD CONTINUE ON. IT WILL THEN GO ON TO THE MANUAL 
CONNECTION PHASE AS DESCRIBED ABOVE. 

THERE ARE 4 ERROR NUMBERS TYPED OUT FOR DN11 PROBLEMS J 

THE Y ARE : 

* PND (PRESENT NEXT DIGIT) BIT NOT SET 

1 s POWER IN ACU FAILED OR ACR (ABANDONED CALL AND 

RETRY) BIT SET 

2 * SOFTWARE TIMED OUT AFTER WAITING 3 MINUTES FOP 1 CALL 

3 » POWER NOT ON IN ACU ( AUT0-C ALL UNIT) 

»*««*»***«**»*« «*»ft»#<M*»#ft »»«••*###*•*»* ****•*#»*#*•**«***«*»*»•* 

IMPORTANT 

EVERY NODE TO BE EXERCISED MUST REACH THE MESSAGE Pi IF SRI HAS BIT SET, 

OR "DIAL ALL MANUAL CONNECTIONS" IF SRI BIT IS A 
ZERO BEFORE ANY OTHER ACTION, INCLUDING ENTERING PHONE NUMBERS 
OR MANUALLY DIALING CONNECTIONS, IS ATTEMPTED . OTHERWISE 
LINES THAT APPEAR TO BE SET UP MAY HANG UP BY THEMSELVES BECAUSE 
THE OTHER SIDE OF THE LINE HAS NOT CONDITIONED THE MODEM TO ACCEPT A CALL. 
»*«••••«»«•*»««*•»*«»««#••**«****»*•»•»«*•»»«•»*»*«*#»«**»»*»•««»« 

AFTER ALL MANUAL CONNECTIONS ARE COMPLETE AND THE OPERATOR TYPES 
A CARRIAGE RETURN, THE N2A? MODULE WILL DESELECT ITSELF BECAUSE IT 
IS NO LONGER NEEDED. 

5. OPERATOP OPTIONS 

THE ONLY OPTION Is TO SET SRI BIT TO A ONE TO ALLOW THE 
MODULF TO DIAL AUTO DIAL UNITS. (THIS OPTION IS NOT YET SUPPORTED) 
% 
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139 


•00000* 










IOMOD 


<N2AA >, 175290,350.4,0,0 


140 


#00000' 










MODULE 


140000, N2AA ,175200.350.4,0.0 

N2AA DEC/Xll SYSTEM EXERCISER MODULE 


1 41 












.TITLE 


142 










; 


DDXCOH 


VERSION 4 9/6/75 


143 












.LIST 


BIN 


144 














145 


000000* 








BEGIN: 






146 


000000" 


031 116 


040501 


040 


HODNAMI 


.ASCII 


/N2AA / {NODULE NAME. _ 


147 


#00005" 


080 






XFLAGi 


.BYTE 


0PEw |USEB TO KEEP TRACK OF WBUf F USAlit 


148 


•00006' 


175200 






ADDRi 


17520B+ 


9 j 1ST DEVICE ADDR. 


149 


000010" 


000350 






VECTOR | 


350+0 


;1ST DEVICE VECTOR. 


isa 


900012* 


208 






BRlt 


.BYTE 


PRTY4*0 MST BR LEVEL. 


i 5 i 


S«5e«Si 5' 


@0@ 






SS2s 


.BYTE 


p RT? g,e S !KD BR LEVEL, 


152 


1*00014* 


000001 






DVID1: 


0+1 


jDEVICE INDICATOR 1. 


153 


000016* 


000000 






SRli 


OPEN 


• SWITCH REGISTER 1 


154 










;••••»•»•*«•••#»#»«•»»•••••••»•♦•••»•••***••»*»*******•»•********* 


155 


900020* 


140000 






STAT: 


140090 


; STATUS WORD. 


156, 


00>)022' 


030164* 






INITJ 


START 


; MODULE START ADDR. 


157 


00002 4' 


000164' 






SPOINTl 


MODSP 


; MODULE STACK POINTER. 


158 


000026' 


000000 






PASCNTJ 





;PASS COUNTER. 
; ERROR COUNTER. 


159 


900030' 


000000 






ERRCNTl 





160 


000032' 


000000 






SVR0| 


OPEN 


{LOC TO SAVE R0. 


161 


000034' 


000000 






svri: 


OPEN 


•LOC TO SAVE Rl. 


162 


000036* 


000000 






SVR2I 


OPEN 


(LOC TO SAVE R2. 


163 


000040' 


000000 






SVR3t 


OPEN 


j LOC TO SAVE R3. 


164 


000042' 


000000 






SVR4: 


OPEN 


(LOC TO SAVE R4. 


165 


1*00044' 


000000 






SVR51 


OPEN 


;LOC TO SAVE R5. 


166 


000046" 


000000 






SVR6I 


OPEN 


;LOC TO SAVE R6. 


167 


000050* 


000000 






CSRAt 


OPEN 


;ADDR OF CURRENT CSR. 


168 


000052* 








SB ADR I 




; ADDR OF GOOD DATA, OR 


169 


000052' 


000000 






ACSRi 


OPEN 


; CONTENTS OF CSR. 


17H 


900054* 








MASADRt 




; ADDR Of BAD DATA, OR 


171 


000054* 


000000 






AST AT: 


OPEN 


^STATUS REG CONTENTS. 


172 


000056' 


000000 






ASB; 


OPEN 


{EXPECTED DATA. 


173 


900060' 


000000 






AMASl 


OPEN 


•ACTUAL DATA. 


174 


000062* 


300164' 






RSTRT: 


RE5TRT 


; RESTART ADDRESS AFTER END OF PASS 


175 












.REPT 


SPSIZ {MODULE STACK STARTS HERE. 


17b 












.NLIST 




177 












.WORD 





178 












.LIST 




179 












, ENDR 




183 


000164' 








HODSPl 






181 












182 












.GLOBL 


TIME, TKS, TKB, TYPE, WAIT 


183 


000164' 








STARTl 






184 


900164* 


000240 






pestrt: 


NOP 




185 


§00166' 


012700 


000020 






MOV 


120, R0 (SET UP TIME LOOp TO GIVE OTHER SYSTEMS 


186 














{TIME TO SET DATA TERM. READY ON THEIR LIN 


187 


000172' 


005001 






1$: 


CLR 


Rl 


188 


000174* 


005301 






2«t 


DEC 


Rl {COUNT A TIC 


189 


000176' 


901 376 








BNE 


2( ; 

R0 {COUNTS TRIPS THROUGH LITTLE LOOP 


!90 


000200' 


005 300 








DEC 


191 


000202* 


001373 








BNE 


It {GO COUNT SOME MORE 


192 


000204' 


017767 


000000G 


000500 




MOV 


•TKS.TKSSAV ; SAVE TTY STATUS 


193 


000212' 


005077 


000000G 






CLR 


0TKS {DISABLE INTERRUPTS 


194 


000216' 


005067 


000432 






CLR 


ERRNUM {CLEAR ERR t 



ss«ase 
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195 


000222' 


032767 


000001 177566 




BIT 


11, SRI 


{ ANY DNll'S? 


196 


000230' 


001002 






BNE 


38 


;BR IF 


197 


3002 32' 


009167 


000346 




JMP 


DONE 


{NO SKIP 


198 


000236' 


916704 


177544 


3tt 


MOV 


ADDR.R4 


{GET DEVICE ADDRESS 


199 


000242* 


005014 




GETNUMt 


CLR 


(R4) 


{ RESET DN11 


200 


990244* 


91 2799 


09965b* 




MOV 


INUMBFR. Rfl 


5 R0 POINTS TO PHONE t 


201 


000250* 


005001 






CLR 


Rl 


{COUNTS DIGIT 


202 


000252' 


005067 


000376 




CLR 


ERRNUM 


{SHOWS WHICH TYPE OF DN ERROR 


203 


990256* 


904567 


009909G 




JSR 


R5, TYPE 


{TYPE A "P# ■ 


204 


900262* 


000714' 






PNM 






205 


990264* 


1057 77 


000000G 


3i: 


TSTB 


•TKS 


{WAIT FOR A CHARACTER 


206 


009270* 


100375 






BPL 


3* 




207 


000272* 


117702 


000000G 




MOVB 


9TKB,R2 


{BRING CHAR IN 


208 


000276* 


142702 


090290 




BICB 


1290, R2 


{GET PID OF PARITY 


209 


030302* 


120227 


009015 




CHPB 




{IS IT A CR7 


210 


000306' 


001430 






BEO 


6$' 


{BR IF DONE INPUTTING 


211 


000310' 


162702 


000060 




SUB 


160, R2 


{MAKE IT A DIGIT 


212 


000314' 


003363 






BGT 


3$ 


{GO BACK AND IGNORE IT 


213 


900316' 


120227 


000117 




CMPB 


R2.IU7 


{IS IT A RUBOUT? 


214 


900322* 


001406 






BEQ 


4S 


{BR IF YES 


215 


•00324' 


170227 


099912 




CMPB 


R2.I12 


{IS IT A LEGAL DIGIT 


216 


•00330* 


002 355 






8GE 


3$ 


{BR BACK AND IGNORE IT 


717 


099332* 


1 10220 






MOVB 


R2,(R0)+ 


{SAVE DIGIT 


218 


•09334* 


005201 






INC 


Rl 


{COUNT A DIGIT 


219 


909336" 


900404 






BR 


5« 




220 


999340' 






4(1 








221 


940340' 


905701 






TST 


Rl 


{ANY DIGITS TO RUBOUT? 


222 


990342' 


001750 






BEQ 


3S 


{BR IF NOT 


223 


000344* 


114002 






MOVB 


-CR0),R2 


{GET OLD CHAR 


224 


A00346* 


005 301 






DEC 


Rl 


{1 LESS DIGIT 


225 


000350" 


962702 


900060 


sl: 


ADD 


160, R2 


{MAKE IT ASCII 


226 


000354* 


1 10267 


000342 




MOVB 


P2.TBUF 


{TYPE IT 


227 


•00360* 


004567 


099099G 




JSR 


R5, TYPE 




228 


000364' 


000722' 






TBUF 






229 


900366' 


000736 






BR 


31 


{GET NEXT DIGIT 


230 


990370' 


004567 


990000G 


6»l 


JSR 


P5.TYPE 


(TYPE A CR.LF 






aaa?24" 






CRLF 






232 


990376* 


T05701 






TST 


Rl 


{ANY DIGITS? 


233 


900400* 


001002 






BNE 


7$ 


{BR IF YES 


234 


990402' 


000167 


000176 




JMP 


DONE 


{ YES, DONE DIALING 


235 


090406* 


000240 




7»: 


NOP 






236 


000410* 


012703 


000656* 




MOV 


•NUMBER, R3 


;GET ADDR OF NUMBER 


237 


000414* 


012714 


000001 




MOV 


11, CP4) 


{ SET CALL REO 


238 


000420* 


005714 






TST 


(R4) 


{IS PWR ON IN ACU 


239 


900422' 


100445 






BMI 


ERR 


{BR IF NOT 


240 


000424' 


000415 






BR 


DIAL 


{GO START CALLING 


241 


900426* 


032714 


000200 


DNL1 : 


BIT 


1200, (R4) 


{IS DOING FLAG SET 


242 


000432' 


001001 






BNE 


11 


{BR IF YES 


243 


000434' 


300774 






BR 


DNL1 


{BR BACK 


244 


900436* 


042714 


000200 


it* 


BIC 


1200, CR4) 


(CLEAR DONE FLAG 


245 


900442' 


932714 


140000 




BIT 


f 140909, CR4) 


(ANY ERRORS? 


246 


000446' 


1)01035 






BNE 


ERR+4 


(BR IF YES 


247 


M0450* 


0*2714 


900020 




BIT 


129, (R4) 


{IS PRESENT NEXT DIGIT SET? 


2*8 


900454* 


001001 






BNE 


DIAL 


{BP IF YES 


249 


000456' 


S»00432 






bP 


ERR+6 


{ ERR, PND NOT SET 


250 


900460* 


112364 


000001 


L> I A L ; 


rOVB 


(P3>*, l(R4) 


{ LOAD NEXT DIGIT 
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SEQ 0167 



251 


900464 * 


05271 4 


aaaaa*) 








12, (R4) 


;SET DIGIT PRESENT 


252 




005 30 1 








nrr 


Rl 


jCOUNT A DIGIT 


25 3 


•0047 2 * 










pwr 


DNL1 


;BR IF MORE DIGITS 




00047 4 * 


01 2703 


Iff IP < WWW 




J J ; 


■nv 


12000, R3 


)SET UP TIMING LOOP 


255 






000200 




2$ I 


BIT 


1200, CR4) 


;WAIT FOR DONE 


256 


#00504 


001 006 








BNE 


41 


jBR IF YES 


257 


VVV9PD 


005005 








CLP 


R5 


258 


00051 


005305 






381 


DEC 


R5 


;JUST KILLING TIME 


259 


04051 2 


\ 








BN£ 


31 


260 


0005 1 4 


005 303 








DEC 


R3 


(COUNT LITTLE LOOPS 


261 


00051 6 


00 1 370 








BNE 


2* 


jBR BACK IF NOT TIME OUT 


262 


000520 


000407 








BR 


ERR + 2 


;BR IF SO TO ERR 


263 


000522 


0327 1 4 


040000 






BIT 


I40000> (R4) 


;WAS CALL ABANDONED 


264 




001005 










ERR+4 


;BR IF YES 














TST 


(R4 ) ♦ 


JOuIr TO HK.AT 01* 




AAA*??* 

f A AC »i • 


000 167 








IMP 


GETNUM 


; GET NEXT PHONE NUMBER 




0005 36 




0001 12 




ERR 


Tur 


ERRNUM 


*SH0W WHICH TYPE ERR 
» 








ana 4 a£ 






Tur 


ERRNUM 


269 


MA** A' 


005267 


19 W IP* 






T»r 


ffDDUnu 


J 


270 


000552' 


062767 


000060 


00007 4 




ADD 


ft£a CDDMIlll 


J 


27 1 




1 1 b767 


DOW ' 10 


000 15 4 




MOVB 


PBDUIiy PV 
tKHNUlf C.A 


;TYPE ERR MSG 














CLR 




;(.L£AR r OK WE.AT Tlflt 


27 3 


000572* 


004567 


DVDVVpv 








R5# TYPE 


274 


0005 76 * 


0007 30 * 








EPRMSG 






275 


WVO WW 




177436 








lltTHU^ 


(TRY AGAIN 




000604 




rVDVvnV 




DONE 1 




RS'TYPE 


JTIlLL nlR TO MAKE. MANUAL CALLS 


277 


aaa& 1 j * 
vvvo 1 u 


00076 1 








MCALL 




276 


000612* 


105777 


000000 G 




1$1 


TSTB 


0TKS 


jWAIT FOR CR 


279 


•00616* 


108375 








BPL 


It 










000000G 








0TKB , R2 


;BRING CHAR IN 


28 1 


*J J* 


1 


000200 






BICB 


*200,R2 


jGET RID OF PARITY 


282 


000630 


1 ??7 5 


0000 1 5 






CHPB 


•15, R2 


;IS IT A CRT 




0006 34 


001 366 








BNE 


1* 


;N0> IGNORE IT 


284 


000636 


035067 


000000G 






CLR 


WAIT 


;CLEAR GLOBAL FLAG 


285 

•>!!5 


000o4 2 






000000V 




MOV 


TK8SAV,«TKS 


; RESTORE TTY 






104401 








ENDS, BEGIN 


J 




«i * 








FODlf flu » 







;H0LD3 ERR NUMBER 




0vw65o 


anna t & 






NUMBER 1 


. BLK" 


16 


j PHONE i GOES HERE 


29w 




000000 






tit eiim 







ooi 


00071 4* 




_ 


000 


PNM | 


.ASCII 


'ft 1 ' 


jPHONE i PROMPT MESSAGE 




0007 2 2 * 


000000 













jl CHAR TYPE BUFFER 


293 












.BYTE 


15 




294 




012 








.BYTE 


12 


295 


0007 26 


000000 








.WORD 







296 


0007 30* 


0*7104 


042440 


051 1 22 


ERRMSGl 


.ASCII 


•DN ERROR »* 




297 




05 1117 


02 1 440 












298 


^A^i»# 








EX t 


.BYTE 


40 




299 


00074 3 


054 


05 1 1 2 4 


020 131 




.ASCII 


"#TRY AGAIN.' 


<15><12> 


300 


000750* 


043501 


044501 


027 116 










301 


000756* 


005015 


000 












302 


















303 


000761 * 


015 


042012 


040511 


HCALL: 


.ASCII 


<15><12>*DIAL 


ALL MANUAL PHONE CONNECTIONS, '< 1 5>< 1 2> 


3*4 


030766* 


020114 


046101 


020114 










305 


000774* 


040515 


052516 


046101 










306 


001002* 


050040 


047510 


042516 
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.ASCIH 'TYPE CR WHEN DONE. *<1 5>< 1 2> 
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307 


00101**' 


041440 


047117 


042516 


308 


001016' 


352103 


047511 


051516 


309 


•01024' 


306454 


012 




310 


901027* 


124 


050131 


020105 


311 


001034* 


051103 


053440 


042510 


312 


001042' 


020116 


047504 


042516 


313 


001050* 


006456 


000012 




114 




000001 
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N2AA.P11 


CROSS 


REFERENCE 


TABLE — USER ! 


ACSR 


•0005 2 R 


1691 




ADDP 


#30006 R 


1481 


198 


ASB 


•0005 6 R 


172» 




ASTAT 


•0005 «R 


1711 




AH AS 


•S6066R 


173* 




BDCNV * 


•••••• G 


It 




BEGIN 


•00000R 


1451 


287 


BITS * 


900001 


1821 




BIT1 * 


•00002 


iS2i 




BIT10 a 


002000 


1821 




BIT11 ■ 


•04000 


1821 




BIT12 » 


010000 


1°2* 




BIT13 » 


§20000 


■ S2i 




BIT14 ■ 


•40000 


1821 




BIT15 » 


1 00000 


1821 




BIT2 a 


•00004 


1821 




BIT3 » 


•00010 


1821 




BIT4 a 


#00020 


1821 




BIT5 a 


•00040 


1821 




BIT6 = 


•00100 


1821 




BIT7 a 


•00200 


1821 




BITS a 


•00400 


1821 




BIT9 a 


001000 


182* 




BREAKS* 


104407 


182# 




BP1 


000012R 


150* 




BR2 


•0001 3R 


151f 




CDATA$« 


104414 


1821 




CRLF 


•00724R 


231 


293* 


CSR» 


•00050R 


1671 




DATCKSa 


104417 


182t 




DATERSa 


104405 


182f 




DIAL 


•00460R 


240 


248 250* 


DNL1 


•00426R 


2411 


243 253 


DONE 


•00604R 


197 


234 276* 


DVID1 


•000 14R 


1521 




ENDPSSa 


104402 


1821 




ENDS * 


104403 


182* 


287 


ERR 


0005 36R 


239 


246 249 


ERRCNT 


000030R 


159t 




ERRMSG 


0007 30R 


274 


296* 


ERRNUM 


•00654R 


194* 


202» 267» 


ERRNS z 


104410 


182* 




ERRORja 


1 04404 


iS2i 




EX 


000742R 


271» 


298* 


EXITS = 


104400 


182* 




GETNUH 


000242R 


199* 


266 275 


GETPASa 


104413 


182* 




GWBUFSa 


104412 


182* 




INIT 


•00022R 


156* 




MAP22S* 


1 04415 


182* 




MCALL 


00076 1R 


277 


303* 


MODNAM 


000000R 


146* 




MODSP 


•00164R 


157 


180* 


MSGHS a 


104411 


182* 




MSGSS a 


104416 


182* 




MSGS * 


104406 


182* 





262 
268* 



264 
269* 



267* 
270» 



272* 
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NUMBER 


000656R 


200 


236 


289* 


OACNV a 


••••** G 


1* 






OPEN a 


000000 


147 


153 


160 






173 


182* 




PASCNT 


•00026 R 


158* 








99e984 


182* 






PNM 


0007 14R 


204 


291* 




POPSP « 


•05726 


182* 






POPSP2* 


•22626 


182* 






PRTY » 


•00000 


182* 






PPTY0 a 


•00000 


151 


182* 




PPTY1 a 


•00040 


182* 






PPTY2 a 


000100 


182* 






PRTY3 a 


•00140 


182* 






PPTY4 a 


000200 


150 


182* 




PRTY5 a 


400240 


182* 






PPTY6 a 


*0030li* 


182* 






PPTY7 a 


•00340 


182* 






PS a 


177776 


182* 






PSW a 


177776 


182* 






PUSH a 


805746 


182* 






PUSH? a 


024646 


182* 






QUES a 


104401 


182* 






RESTRT 


000164R 


174 


184* 




RSTRT 


00006 2 R 


174* 






SBADR 


000052R 


168* 






SPOINT 


00002 4 R 


157* 






SPSIZ a 


00004(3 


11 


175 




SRI 


90001 6 R 


153* 


195 




START 


000164R 


156 


183* 




STAT 


000020R 


155* 






SVR0 


000032H 


1601 






SVR1 


•00034R 


161* 






SVR2 


0.50036R 


1621 






SVR3 


00004CR 


1631 






SVR4 


•00042R 


1641 






SVR5 




!65t 






SVR6 


000046R 


166* 






TBUF 


000722 R 


226* 


228 


292* 


TIME a 




182* 






TK B a 


*•••*• G 


182* 


207 


280 


TKS a 




182* 


192 


193* 


TKSSAV 


•00712R 


192* 


2"6 


290* 


TPX a 


000000 


182* 






TPAPX a 


000020 


182* 






TYPE a 


•••*•• G 


1821 


203 


227 


VECTOR 


•00010R 


149* 






WAIT a 


•••••• G 


182* 


284* 




WASADR 


00005 4 R 


170* 






XFLAG 


•0000SR 


1*7* 








M10S4R 


289* 
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162 163 164 



169 171 172 



278 286* 



273 276 



APS, 000O04 i»fM 
»01t*54 001 
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SEQ 1)171 



ERRORS DETECTED I 

DEFAULT GLOBALS GENERATED! 

•N2AA,N2AA/SOL/CRFsSYMaDDXCOM,N2AA 
RUM- TIMET 2 3 .4 SECONOS 
PUN. TIME RATIOl 48/7»5.4 
CORE USED! 8K (IS PAGES) 



